u 



Commodore - magasin 



Will 

4 

Junl/Juli 85 
Dkr. 24,50 - Nkr. 21,5 




70P 

nderne 



asseraf gode 
erprogrammer 



TWILIGHT 



26 FLINTHOLM ALLE - DK 2000 COPENHAGEN F - DENMARK • PHONE: 01 -88 07 34 




kr 19a~ 

KUN SALC GENNEM FOR HANDLER 



rTTujTn 




Commodore- magasin 




Anmeldelser og tests 

Succes fra start en 6 

Vi har kikket pa" Commodores nye PC 
10, der bliver revet v&k. 



Din Commodore og 
andrecomputere 19 

Overfarsei at Comalfiler mellern C64 
og arrdre computers bliver mere og 
mere aktuelt Lees her hvordan. 



Andet 

Forstorogforlille 8 

RUN har besogt Hannovermessen og 

Mikro Data i Vefle. 



Ava nee ret hjemegy mnastik 10 

Bra/npower-serien er undervisnings- 
programmer af hoj standard. 

Programanmeldelser 16 

Vi har denne gang mest kikket pa ad- 
venturespii 



Boganmeldelser 18 

7b nye danske boger har set dagens 
lys. 



Hjffllpeprogrammor 28 

K0b af hjselpeprogrammer er altid ak- 
tuelt. Hvad skat man vaalge? 




Tips, tricks og vejledning 



Maskinkodedel2 15 

Vi starter med vores ferste, simple ma- 
skinkodeprogram. 




Input/Output 22 

RUN's lasserbrevkasse har taget nav- 
neforandring. MAske er der noget, du 
kan bruge. 

Begyndersiden 25 

Bjarne Jensen skriver denne gang om 
input at data. 




Programmer 

Perioderegnskab 12 

Lasserforslag til opsummering af mi- 
nedernei RUN's privatregnskab. 



Tipsprogramdel3 26 

Vi kan nu begynde at leegge reducere- 
de systemer ind I vores tipsprograrn. 



Kryds ogtveers 27 

Brug computeren til at konstruere din 
egen kryds og tvaers. Send dit bedste 
resultat tii RUN. 



Tegnfordellngssystemer 36 

Hereretandet tipssystem, dersenere 
kan kaades sammen med det forste. 



Lceserprogrammer 46 

Vi modtager mange gode Iseserpro- 
grammer. Lbs her om de enkelte pro- 
grammer i detie nummer. 



Vinderneaf 7'UPkonkurrencen 9 

Det var svaart at vselge meilem hun- 
dredevrs af gode programmer. 



Indtastningsvejledning 64 

Laas den fer du begynder at taste pro- 
grammer ind. 



V'mddennyeiaa'er 66 

BIN abonnent og deltag i lodtrmknin- 
gen om den nye spsendende compu- 
ter. 
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Jeg ved ikke, hvordan sommeren t ar 
bliver. men solen star i hvert fald hcji 
pa himfen, og del er Srstiden, hvor 
computeren er domt til at tore lidl af en 
skyggetilvfflrelse. 

Maske er del svaart helt at holde sig 
helt fra den, og maske fa"r vi nogle 
regnsvejrsdage, hvor vi med god sam- 
vittighed kan hakke lidt i tastaturet 
igen. 

PS redaWionen f &r vi i hvert fald ikke 
megen tid til at nyefe solen. RUIM's ter- 
ste levear gar pa haeld. og vi har ople- 
vet en udvikling, der giver de bedsle 
letter for fremtiden. Vi er I gang med at 
planlsegge et udvidet fedselsdags- 
nummer og et "program special num- 
mer«. Med fern udgivelser her i andel 
halvar ervl saved at vaarefremmeved 



det farste maf: en manedlig udgivelse 
af RUN! 

Denne udvikling kan vi farst og 
fremmest takke lasserne for. For det 
t0rste selvfelgelig fordi bladet over- 
hovedet kabes, men I lige sa hej grad 
pa grund af den gode Iseserkontakt, 
der dagllgt kommer til udtryk ved ind- 
sendelse af masser af gode program- 
mer, lips, forslag og Ideer - ja. sagar 
ogsa artlkler. 

Det giver en fclelse af, at HUN's las- 
sere i haj grad betragter bladet som 
deres blad, og det er en udvikling, jeg 
haber vil fortsastte. 

Med dette hajb vil jeg herrned anske 
alle RUN's Isesere en rigtig god som- 
merferie - og pa gensyn I il august til en 
spasndende udvikling! 




Succes Ira starten 



M Flemming Lerbsek 

Commodore er blevet personlige. 
Ikke sadan at forsta, at man vil for- 
naarme nogen. Snare re tvaartimod. 
For firmaet har som mange andre 
bygget en computer, der vll tage sin 
del af ma rkedet: personlige compu- 
tere ogsa kaldet PC'ere. 



Del er vesttyskerne som bygger Com- 
modores to personlige computere. De 
hedder henholdsvis PC 10 og PC 20. 
Forskellen pa de to maskiner Jigger 
udelukkende i antallet af diske. PC 
1 0eren har io 360 K iloppy drev. mens 
PC 20 kun har el floppy drev, men til 
gengaelden 10Mbyte harddisk.Samti- 
dig er tyskerne sa snedige. at de har 
gjort rigelig plads i hardware-boksen til 
en harddisk ogsa pa PC 10 modeilen. 

For Commodore har det vaeret me- 
get vigtigt, at man har faet fremstillet 
en maskine, som var tuld kompatibel 
med IBMs PCer. Og det er tilsynela- 
dendelykkes 100pct.lndtil datoerder 
ikke blevet praesenteret et eneste styk- 
ke software til IBMs salgssucces. der 
har haft nogen form for vanskelighe- 
der med at virke pa PC 10 og PC 20. 

Men Commodore har ikke vil let lade 
sig neje med det. Man har ifolge de tek- 
niske specifikationer faet lavet en 
computer, der er bedre end IBMs 
salgssucces, der har haft nogen form 
for vanskeligheder med at virke pa PC 
10ogPC20V 

Men Commodore har ikke vil let lade 
sig neje med det. Man har ifelge de tek- 
niske specifikationer faet lavet en 
computer, der er bedre end IBMs. Den 
kan ihvertfald mere og rummer mere 
hardware end sin beromte arne. 

Hvad rnaskinen kan, fremgar af de 
skemaer vi bringer her pa siderne, 
men vl har talt med systemchet hos 
Commodore i Horsens, Jan Nymann, 
om de ting , han finder saarllgt gar Com- 
modores PC-modeller konkurrence- 
dygtige. En af aVsagerne er selvfelge- 
lig prisen. For PC IQsselges til 19-950 



kr. excl. moms, mens PC 20 saalges til 
30.950 kr. excl. moms. 

Resultatet er da ogsa blevet en solid 
succes. Maskineme er solgl nassten 
far de kommer til landet og mange 
utalmodige brugere har mattet indstil- 
le sig pd en leveringstid. 

Tysk grundighed 

- Tyske rne har ry for at vsere g rundige . 
Og ser vi paderes arbejde omkring dis- 
se to Commodore modeller, ma man 
give ret i denne karakteristik, siger Ny- 
mann. 

Som eksempel nsevner han udform- 
ningen af tastaturet. som selvf0lgelig 
leveres med dansk tegnsaat. IBMs ta- 
statur har de karakteristiske forhfljnin- 
ger pS tasterne. Det gor dem efter 
manges mening vanskeSigere at ram- 
me. Commodores tastatur er med 
st&rre knapper, der er desuden sket 
omflytning af ALT og CRTL-tasterne, 
sa de nu ligger over SHIFT-taster i ven- 
stre side. 

Han naevner ligeledes andre hard- 
ware-forbedhnger som bade en seriel 
RS 232 og en parallel centronic-port 



som standard. Der ergjon pladstil fern 
I/O kort i rnaskinen, hvoraf dog de to 
normalt vil vasre belagt med video, for 
PC 20 ogsa en for harddisk-kontrollen. 

Og nar vi nu er ved video-udgangen , 
sa har Commodore hidtil leveret deres 
PCere med monokrome display, men 
fra juni vil man levere - og muligvis fer 
- maskineme med farvekort i stedet, 
altsa som standard. Om det vil influere 
pa prisen, vil Nymann heist ikke spS 
om, men det bliver stserke sager, der 
kommer i rnaskinen. Langt bedre end 
IBMs maskiner. 

Ud over IBMs egenskaber vll PC 10 
og PC 20 farvekort nemli' fa 160 X 200 
punkters grafik i 16 farver, og der vil 
veere 320 x 2O0 i lige sa mange farver, 
samt 640X200 i fire farver (her stop- 
per IBM og det i sort/rwid) og endelig 
en superoplesning pa 640 x 352 punk- 
ter i monokrom. 

PS softwaresiden er der ogsa gjort 
meget for at tilfredsstille de kraesne 
PC-brugere. Det er Commodore selv, 
der har udviklet den sakaldte CW- 
BASIC, der er betydeligt hurtigere end 
IBMs, men alligevel fuld kompatibel 
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med IBMs Basic A, hvor A star for AD- 
VANCE. Se oversigten andet sted p& 
siderne. 

Systemudviklerne har bestraBbt sig 
pa at bruge Commodores egne Ker- 
nal-rutiner. Det betyder at de lleste 
software udviklet til de eeldre modeller 
i f .eks. 8XXXserien vil kunne bruges pa 
PCeme. I/O systemfunktionerne Wa- 
res med en BIOS anbragt i en 8K byte 
ROM. Og operaiivsystemet er (DOS- 
en) indlseses fra disk og en MS-DOS 
2.11, der er meget hurtig. PC lOog PC 
20 er i stand til at tage software udvik- 
let til alle MS.DOS 2.XXog PC DOS sy- 
stemer. 

Men ud over det har Commodore 



indledt et samarbejde med DTI-Soft- 
ware l/S. Det har forelsbig resulteret i 
en meget gennemtsenkt og velfunge- 
ret programpakke ><Dantekst«. Det er 
et program, der nok senere vil blive 
omtalt her i bladet, men som rummer 
alle tasnkelige faciliteter bade nar det 
angar kartotek og tekstbehandllng . Pa 
(uld dansk og med f.eks. dansk ordde- 
lings-program. 

Konklusionen pa denne artlkel ma 
blive, at Commodore i kke bare har f det 
lavet en luld kompatibel computer 
med IBMs, men en selvsteendig en- 
hed, som pa mange omrader overgar 
sit forbillede. Kun prisen er betydeligt 
lavere. 
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Ved hjaelp af ALT-tasten - der er kommet bori fra sin usatte post nasr rnellem- 
rumstangenten - kan man frembnnge folgende kommandoer; 
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ALT i 

COMMODORE 
og AMSTRAD 

hardware og software! 



COMMODORE 1541 DtSK 
Kr.2995,. 

COMMODORE MPS802 
Printer Kr. 3495,- 
FARVEMONrrOR til 

Commodore Kr. 3495,- 



AMSTRAD m/gron skserm 
Kr. 3495,- 

AMSTRAD m/farve-skaarm 
Kr.5495,- 

AMSTRADDDI-1 diskdnev 
Kr. 3995,- 
AMSTRAD PRINTER 
Kr. 3045,- 



Markedets suveraant bedste 
TURBO-DRIVER til din 
Commodore 1 S41 . Op til 20 
gange hurtlgere. Load'er 202 
blokke pa 8,8 sek. Normalt: 
2.11,3 sefc. Desuden Exten- 
ded Basic, Resetknap og me- 
get mere ! Kra?ver IKKE iftd- 
greb i cornputer/lodning I 
dlskettedrev. Pris inkl. m ente- 
ring; Kr, 985.- 

TEKST64 

Det bedste tekstbehandfcngs- 
program nogensinde til 
Commodore &4. Omfangsng 
dansk documentation. 
Kr. 385,- 

DISK TOOL 64 

Basic- programmorens uund- 
vsrilge v£erktoi pa disk, bl.a_ 
renumber, merge, beskyl filer. 
Kr. 125.- 

DISK64 

For den aenose bruger af 
CBMi$41 Avancerede ruti- 
ner til behandling al -genstri- 
dige- diskettes Kr. 125,- 



3M disketter. 1 0 stk Kr. 350,- 
20stk. Kr. 600,-. 50 stk, Kr. 
1400,- 



Noget du Ikke ser? Vi har det 
- til den laveste pris. Ring og 
nor! 

Alle priser inkl moms. 

Ordre/oply&ningstetefon 
(023 24 26 58 
Ma-sokl. 8.00-22.00 



Sadan ser Commodores CWBasic kommandoer ud. De er nQ/agtigt som IBMs 
PCer. 




Poslbohs. 28 ?080 Kokkedal 
Tell 02 24 26 58 Giro 5 69 6a 36 
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For stor og for lille 



Af Jsrgen Jorgensen 

RUNs redaktion har bescgt lo udstillin- 
ger sid«n sidst. Fersiden ksempestore 
Hannovermesse. der i kraft af sin stsr- 
relse kan lage pippet f ra selv den mest 
garvede udstillingsveteran. Tag Bella- 
centeret 1 0 gange, og sa vil det siadig 
kun fyide e! hj&rne i Hannover. Jeg fik 
selvtelgelig kun set en brokdel af det. 
der var at se. og min interesse var na- 
lurligvis centreret omkring Commodo- 
res stand. 

Det var smal med nyhederne. men 
128'eren blev i hvert fald prassenteret 
lor fuld udblaasning. Det var en fome- 
jelse at se, hvad den kan preestere, 
Isaer pa det semiprofessionelle plan, 
Ingen tvivl om, at den har en stor frem- 
tid. 

Overraskelsen var en 16-bit UNIX 
computer med navnet Commodore 
900 (se biltedet). Der var for en gangs 
skyld ikke sivet noget videre ud pa for- 
hand. sa den vakte berettiget interes- 
se. Det er en ret kostbar sag, der nok 
latder udenfor RUN's omrade. 





MikroDatal Vejle 

Var Hannover overvaaldende, sa var 
MlkroData I Vejle til gengaald en bleg 
skygge af udstillii>gen t Kcbenhavn, 
der heller ikke imponerede. 

Pa Commodores stand var der een 
128'er , som var beskyttet (som kronju- 
velerne) i en glasmontre. Ingen mulig- 
hed for at se den I funktion ! 

Commodore 900? Nej, den var der 
end ikke et billede af . Andre nyheder - 
heller ikke! 

De fa mennesker, der besegte ud- 
stlllingen kunne lige sa godt vasre ble- 
vet hjemmetcJet var der forevrigtogsa 
mange t'tlmeldte udstlllere, der blev). 

Won ikke det var sidste MlkroData- 
udstilling i Vejle. Jeg tror det ! 



Det originate 



NYT UV i din Commodore 64 A 1541 disk: 

LOAD-hastlrjhed 10 x hurtigere • DATA-ov*rfersier 8 x hurttgere - FORMATE - 
RING p* KUN 23 SEK. - FULD DATASIKKEFtHEO ■ LOAD & START program med 
kun 1 last • DIRECTORY (S) med kun 1 last • LOAD fra DIRECTORY med kun 1 last 
• MONITOR er INOBYGGET • FULD COM P ATI BELT CENTRONICS INTERFACE er 
indbygget • FUNKTIONSTASTERNE (som kan s2as Ira) er belagt med mange 
FINESSER lor prgcjeren • FyKJ DOS 5.1 med UDVIDELSEFt er IND6YGGET • 
HARD-COPY ratine indbygget • OLD kommando INDBVGGET • REGNER MED: 
HEX. OCT. BIN • ALT DETTE FUNGERER, SA SNART DU TENDER FOR DIN «« 
- INGEN SOFTWARE SKAL LOADES ■ Nem og hurtlg montering • SpeedDos' 
brugef INGEN PLAOS I DIN computer • SpeedDos' rangerer med ALLE pro- 
grammer. 




r. 1495,- 



Poly-Consult 

52500dertS8 SV. TTf. 09-1766 67 

r Hen«ser game tH narmeste fomandler. 
*++*f£*<om m er regstreret varemarke. 
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TUP vinderne 




Af Jorgen Jargensen 



Sa er spaandingen udlest . 

Blandt adskillige hundrede forslag 
har dommerkomiteen truffet sit svsere 
valg. 

VI er dybl imponerede. Det er utro- 
ligt sa megen krealivitet og teknisk tor- 
maen, der er blevet tagt for dagefi. VI 
havde gerne delt langl flere prsemier 
ud, for sa at sige ALLE programmerne 
var gode. 

Til sidst sad vi sa med nogle fa styk- 
ker tilbage og var tvunget til at treeffe 
en beslutning. 

Bclgeme gik hsjt, men komiteen 
enedes til sidst om felgende afgarelse. 

Det vindende forslag 

Fersteprasmien gik til 

Frits Nielsen 

Lyngevasnget 61 , Roslev 

7870 Glyngere, 
tor det flotte billede, er er vist pa moni- 
toren pa" forsiden af bladet. Det er et 
meget flot billede, der er lavet uden 
hjaslpeprogrammer. Billedet er meget 
harrnonisk opbygget med en detailrig- 
dom, der isser ses i glasset. Man bliver 
virkelig twstig af at se pa billedet. Bra- 
vo, det var flot klaret! 




Andenprsemien gik til dette morsomme spit, der er ttstet ud pa" side 38. 



Andenprsemien 

Der var skarp konkurrence mellem de 
tre vinderforslag. Andenprasmien gik 
til Henrik Benner Svendsen. Vesterga- 
de 10. Levring. 8620 KJellerup for spil- 
let »7' UP-Pub« , der er listet ud pa side 
38, Et morsomt og velfungerende spil 
af hej kvalitet, 



Tredjeprsemien 

Et bymilje i tre afdelinger - nat, mor- 
gan og dag - med skiftenda lysrekia- 
mer, korende biler m.m. Det forslag 
var indsendt af Erik Uggerhej, Carsten 
Haugsvej 16, 9000Alborg. 

Der er anvendt Superexpander og 
resultatet er en meget elegant og stll* 
ran losning. 



SEMEMfUP to 
n 'LIGHT' HIM 




Da svrige programmer 

Det har vseret en fornajelse at gen- 
nemg& programmerne, nyde den h0je 
standard og den glaede over opgaven. 
mange har givet udtryk for. Det bliver 
ikke sidste gang, vi karer programkon- 
kurrencer i RUN. Fra Seven Up's side 
var man sA imponerede, at ALLE ind- 
senderne vil fa retumeret deres pro- 
gram med en iille hllsen og »tr0stpra3- 
mie« fra 7'UP. De tre vindere har fast 
gevinsterne tilsendt . 



Fwsteprsernien var en transportabel 
SX-64 computer med indbygget farve- 
monitor og diskette - vasrdi ca. kr. 
10. 000, Anden- og t redjepreemien var 
henholdsvis et seven-up guld pencil - 
sasl og et seven-up Quartz ur. 



Dette flotte billede med kvrende oiler fik 3. prsemien. 
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BRAINPOWER 5ERIEN: 

Avanceret hjernegymnastik 

Af Robin Sagar 



I julen rejste jeg til England. Jeg be- 
nyttede mig af muiigheden til at kig- 
ge elter nyt soft ware til min 64'er. 
Spil var der i store maangder, men 
jeg indsa, at de f leste af disse ogsa 
ville kunne kobes i Danmark. nar 
jeg kom tilbage. Business eller an- 
det series! software, var en anden 
sag. Business software til hjemme- 
computere er som regel begraanset 
til 4 emner, spreadsheets, databa- 
ser, tekstbehandling og bogholde- 
riprogrammer. Jeg var derfor inter- 
esseret, da jeg f andt to programmer 
I BR AINPO WER-seri en, og el af dis- 
se, DECISION MAKER, kobte jeg 
med mfg hjem. Grander) var, at dis- 
se programmer udforsker andre 
omrader, der bruges af okonomer 
og planlaeggere, end de 4 oven- 
nsevnte emner. 

BRAINPOWER programserien kom- 
mer fra TRIPTYCH PUBLISHING LI- 
MITED i Storbritannien, og kan kabes 
tit et stort udvalg af maskiner, bl.a. Am- 
strad, BBC, QL, Spectrum og selvfal- 
gelig COMMODORE. Pa grund af for- 
skellige licensrettigheder, kan pro- 
grammerne til COMMODORE kabes 
fra CBS, mens Armstradversionen ko- 
bes fra Twilight ApS. 

PS nuveerende tidspunkt findes der 
7 BRAINPOWER titter. Disse er CASH 
CONTROLLER. DECISION MAKER, 
ENTREPRENEUR, FORECASTER, 
PROJECT PLANNER, NUMBERS AT 
WORK og STAR WATCHER. De sidste 
to er strengt taget ikke busines-pro- 
grammel, men NUMBERS AT WORK 
er e! lortreeffeligt hjselperedskab til 
den grundleeggende matematik. Det 
daakker emner som breker. decimaler 
og procentregning, og desuden kan 
man lasre om vsek strater og rentesreg- 
ning. STAR WATCHER er et af de fa 
astronomiprogrammer, man kan fa til 
64'eren. Ved at benytte beskuerens 
position, og kode leengde- og bredde- 
graden, samt den eksakte tid, Ind t 
computeren, sa kan den beregne og 
vise positionen af stjernerne overall pa 



den no rdlige ha Ivkugte . Jeg t ror , at del- 
ta program vil vsere glimrende til en- 
hver vordende astronom. 

De andre fem titler er forretningsori- 
enterede, men tjener ogsa en vigtig 
forklarende og belserende funktion. 
Hvert af disse programmer kan fas pa 
enten kassette eller disk, og er pakket 
sammen med en instruktionsmanual 
med spiralryg. Denne serie al pro- 
grammer er lavet saledes, at der ikke 
kraves nogel forudgaende kendskab 
til emnet. da brugeren tilegner sig en 
forstaelse ved at bruge manualen. 
Hvert kapitel er som regel brugt til et 
specifikt emne, der er relateret lil en 
specie! del afvejledningsprogrammet. 

Taktf control nf time on any tusk 




Application Mining ilominfl 



Man far adgang til de enkelte kapii- 
ler, ved at bruge en bogstavskombina- 
tion, 09 til eksemplerne inde 1 kapitlet, 
ved at bruge et nummer. Dette er en 
glimrende undervisningsteknik, da 
den bremser frlstelsen til at styrte fra 
det ene skaarmeksempei lil det andet, 
og kun laase 1 manualen, nar der fore- 
kommer et problem. Selve program- 
merne er meget brugervenlige, og et- 
te r hvert stykke er der sasdvanligvis en 
kort avelse, sa man kan undersoge sin 
forstaelse af det gennemgaede. Hvis 



procentdelen af rigtige svar er for lille. 
vil der komme en opfordring pa skaar- 
men, til at lasse kapitlet en gangtil. Bru- 
geren kan s£ vaalge imellem at gen- 
nemga kapitlet endnu en gang, ga vi- 
dere til naaste eller slukke. 

ENTREPRENEUR 

ENTREPRENEUR beskrives bedst 
som et lille forretningsetableringsred- 
skab. Formatet hasvder. at program- 
met er et komplet udstyr til start af en 
forretning. Programmel er naturligvis 
skrevet lil et britisk marked, men det 
kan i stor udstraekning ogsa bruges i 
Danmark med lige sa stort udbytte. 
Den eneste del af programmet, der 
ikke er d i rekte brugbar for danskere, er 
afdelingen om britisk moms. Undervis- 
ningsafdelingen tager omtrent 3-4 ti- 
mer at komme igennem, men dette 
kommer an pa, hvor god man er til ma- 
tematik, og hvor mange af de grundlig- 
gende ting man kender pa forhsind. 
Jeg vil anbefale, at man holder sig in- 
den for tidsintervaller pa_45 minutter. 
Det vil ogsa vsere en god ide, at have 
en lommeregner ved handen. 

LarerveiJedningen starter med 
nogle generelle rad om, hvordan man 
planlaagger en forretning. Den beskri- 
ver. hvordan man laver et forretnings- 
udkast, og rejser nogle af de sporgs- 
maX man steder pa, nSr man indlader 
sig pa et nyt forretningsforetagende. 
Hvordan er markedet? Findes der an- 
dre produkter eller services pa marke- 
det? Hvilken fordel har dit produkt/din 
service overfor disse? 

Markedsundersogelse og annonce- 
ring er ogsa naavnt, ligesom levetiden 
pa produktet/servicen. Spcrgsmalet 
om menneskellge ressourcer rejses 
ogsa, ligesom tidsplanen for gennem- 
farelse. Sa kommer programmet til 
dets hovedopgave, nemlig at styre de 
til radighedstaende okonomiske res- 
sourcer. 

Computerens laarervejledning er 
delt opi 6afsnit. Disse erDobbelt bog- 
holderi regnskab, hvordan man far 
overskud, likviditet. fremvisning af 
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regnskab og moms. Som nasvnt er del 
sidste afsnit af begrasnset nytle for 
danske brugere. Dobbelt bogholderi 
forklarer generelt om emnet, og bru- 
ger el regnskab (status) som eksem- 
pel. Faktisk bruges regnskabet i man- 
ge af eksemplerne. 

Regnskabet tntroducerer anlaags- 
aktlver, egenkapital, lager, debitorer 
og kreditorer, kontanter, fort|eneste og 
Ian. Disse udtryk og begreber er alle B- 
lustreret og forklaret ved hjaelp af Joe, 
bummersselgeren, cj er vandrer igen- 
nem leerervejledningen, mens han 
foretager mere og mere vanskelige 
iransaktioner. 

Nseste afdeling er »hvordan man far 
overskuck og del er jo dette som for- 
reining drejer sig om. Vejledningen in- 
troducerer udgifter og vurdering af an- 
lasgsaktiver, saml sluttelig over- og un- 
derskud. Den forklarer ogsa, hvordan 
man beregner de faste udgifter og la- 
yer en nulpunktsanalyse, altsd under- 
soger. hvor slor omsaatningen skal 
vasre, for at regnskabet balancerer. 

Likviditet giver gennemtorte ek- 
sempler pa pengestremme, og vlser, 
hvordan man beregner sit behov for 
driftskapital. 

Efter at have arbejdet sig igennem 
vejledningen, er brugeren tilstraakke- 
ligt forberedt til, at ga i gang med al an- 
vende den indlaarte teori i praksis. Det- 
te kreever detaljerede opiysninger om 
de 0konomiske aspekter af brugerens 
(formodede) forretning. 

Den praktiske del af programme! 
giver mulighed for, at simulere enten 
et enkelt produkts fremstillingsom- 
kostninger, etler en flerprodukts analy- 
se. Der er dog ingen rigtige »WHAT 
(F«-muligheder, men det kan ogsa vaa* 
re en fordel. da de beskrevne eksemp- 
ler er meget skematisk opbygget. og 
da det er meget tidskreevende, at ga tit- 
bage i programmet forat indtaste nog- 
le opiysninger. 

FORECASTER 

Omslaget til FOR ECASTER-pakken vl- 
ser omridset af et hoved, der omgiver 
en krystalkugle. Dette er meget pas- 
sende, da programmet beskaaftiger 
sig med forudsigelser om fremtidige 
udviklinger. 

Som alle BRAINPOWER-program- 
mer er der skrevei en glimrende 
brugervejledning/manuat, der giver 
brugeren indsigt i emner som f.eks. 
tidsserier, udjasvnende og simpel re- 
gression. Det starter med gennemsnit, 
og fortsastter med beveageiigt gen- 
nemsnit og eksponential udjeevning. 




BRAINPOWER 

AppIiC9DoniIinRith kanun* 

Hvorefter man kommer ind pa begre- 
bet tidsserier. 

Det ertilradeligt at veere meget om- 
hyggelig med gennemgangen af ek- 
sempler, og gennemga nogle afsnit en 
ekstra gang. Dog er det muligi efter 
kort tic*, at blive temmelig god til ting 
som 5-punktsgennemsnit. Holt's me- 
tode lil dobbelt eksponentiel udjaav- 
ning og klassisk nedbrydning. 

Nar man fflfst behersker teorien, er 
det muligt at ga til brugerprogrammer- 
ne og lave sine egne forudsigelser. 
Her beder computeren om data, og 
nar den har faet dem. regner den et 
godt stykke tid (manualen foreslar ».a 

nice cup of tea«). 

Nfir resultaleme sa kommer op pS 
skeermen, kan de primes, hvis man on- 
sker dette. Jeg er ikke nogen slor stati- 
st kker ; men jeg Iserte en hel del af det- 
te program. Et af de primsere anven- 
delsesomrader, (mener jeg), vil veere 
ved markedstoring og produktsplan- 
laagning. Dog vil den stetrste anvendel- 
sesmulighed ligge I vort uddannelses- 
system, da man kan simulere en mas- 
se beregnlnger, som er svasre at Ware 
uden et sadant program. 

PROJECT PLANNER 

De tidligere omtalte programmer har 
vserel meget «terre« i forhold til PRO- 
JECT PLANNER. Indholdet af pro- 
grammer er dog ikke mindre brugbart 
end ENTREPRENEUR og FORECA- 
STER, men pga. brugen af diagram- 
mer, og fordi det kun dsekker et emne, 
sA virker indleenngsprocessen mere 
morsofD. 

Emnet for PROJECT PLANNER er 
»c ritical path analysis" ( anal yse af den 
kntiske vej). CPA er oftest kendt i for- 



bindelse med planlasgning af begiven- 
heder og ressourcer indenfor en be- 
stemt tidsramme. Vigtigheden af CPA 
kan lllustreres ud fra den kendsger- 
ning , at det var et vassentligt led i plan- 
laagningen og kontrolforanstaltntnger- 
ne, som DANSK BORESELSKAB 
brugte under opbygnmgen af Tyra-fel- 
teti Nordsaen. 

For at gennemfere en CPA er det 
nfldvendigt, at dele projektet op i dels 
mindste dele og fastsla forbindelsen 
mellem de enkeite dele. Dernast er 
det nedvendigt, at beslemme hvilke 
aktiviteter, der er af afgorende vigtig- 
hed for gennemferelse af projektet 
indenfor tidsfristen. Efter at have be- 
stemt den tid de vigtigste ting vil tage, 
kan man begynde al interessere sig for 
de mindre vlgtige, og overskuddet af 
lid kan beslemmes. 

Programmet griber omtrent fat p£ 
emnet pa denne made: Til al folge dig 
gennem laerervejledningen bruges to 
tilbagevendende eksempler. Disse er 
»Start en ny forretning« (en behagelig 
forbindelse til ENTREPRENEUR), og 
det andet er et f irma, der saalger vindu- 
er. Hvert al aspekterne til analyse 
overvejes et efter et, og ved at bruge 
selvtest eksempler, er det muligt inden 
for et par timer at blive temmelig god lil 
CPA. Ganske fornuftigt foreslar Iserer- 
vejlednmgen at Critical Path diagram- 
meme Ikke skal vises til nogen (mine 
ligner aitid spindelvaev), men at pree- 
sentation af diagrammer er viglig. 
Desuden giver programme! mulighed 
for, at printe pa bade en strimmel og 
barcharts. og brugeren er i stand til, at 
lave en rapport med de relevante data 
fra CPA-ana lysen. 

DECISION MAKER 

Dette er et program om strategisk 
planlaagning og minimermg af risiko. 
Dette er det andet af de diagram-illu- 
strerede programmer i BRAIN PO- 
WER-serien. og er tilfseldigvis ogsa del 
program, jeg kobte med mig hjem fra 
Storbritannien. Programme! nasrmer 
sig emnet risikoanalyse ved at bruge 
»beslutningstraeer«, hvilket er en ske- 
matisk metode, hvorpa man kan illu- 
strere alle de enkeite dele, som er In- 
volveret i en beslutnmg. 

Beslutnings-analyser er normalt op- 
delt i 6 dele: opbygning, afregning, 
sandsynlighed, prisnedsasttetse, risi- 
koanalyse og en analyse af, hvor sar- 
bar produktet/servicen er . Hvert af dis- 
se emner er efter tur daakket af laarer- 

Fortsseftes side 14 
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Periodeopgorelse til 
privatregnskab 




Af Niels Dreijer 

kontoplanens tekst, som fil-formatet 
tlllader. dermed sikres. at kontoplanen 
altid falger kvarials- og arsopgorelser- 
ne. 

Den oprindeiige menu vender tilba- 
ge. og man kan herefter vaage en ny 
opsummering, at loade selve privat- 
regnskabet ved at indtaste L, eller at 
vende tilbage til BASIC ved at indtaste 
B. 

Vaslges der L, skrives LOAD 
"REGNSKAB/BASIC",8 pa skaarmen 
sammen med en raskke programl inier, 
der automatisk vil Wive indsat i stedet 
for de oprindeiige i privatregnskabets 
BASIC-udgave. Oisse linierger, at pri- 
vatregnskabet accepterer de nye 
"maneder", men har desvaarre Ingen 
indvirkning paopsummeringen af bud- 
getfilen. 

Endehg skriver programmer RUN, 
og del fylder st antal RETURN -kom- 
mandoer i keyboard-bufferen. som 
derved indlseser linierne og terer pro- 
gramme! tra skaermen efter at hjselpe- 
programmet er blevet slettet. Skaer- 
men benyttes altsa til at lade de to 
programmer tale sammen. 

Herefter kan privatregnskabet af- 
vikles som normal!, med periodeopga- 
relseme indbygget som en rsekke ek- 
stra "maneder" . Alle normale funktio- 
ner virkerpadisse.dog naturligvis ikke 
opsummering efter betalingsmade (al- 
tid "P" pa pseudo-lilerne). Desuden 
kan programmet Ikke opsummere 
buclgettet kvartalsvis. 



Privatregnskabet, der blev afsluttet i 
forrige nummer a! RUN, kan kun op- 
summere bilag (or en enkelt maned ad 
gangen. Dette Nile hjaalpeprograrn ra- 
der bod pa denne mangel, sa bilagsfi- 
lerne kan opsummeres (or hele aret - 
eller kvartalsvis. Som fast laaser af bla- 
det kan jeg kun opfordre andre, som 
ogsa har lavet sma hjaelpeprogram- 
mer, til at trsede f rem og fa dem offent- 
liggjort. 



Virkemade 

Hjaalpeprogrammet er i store traak 
sammensat af programstumper fra 
det egentllge privatregnskab, som er 
blevet tilpasset til formalet og udvidet 
med en raakke nye rutiner. 

Indledningsvis defineres en raakke 
nye »maneder«, nemlig kvartalerne 1- 
4. Til gengasld udelades budgettet, 
hvilket giver ekstra plads i hukommel- 
sen. Det betyder, at man ikkebehover 
at brugeprogramlidpa-at gemme vasr- 
dier udenfor det normale BASIC-om- 
rade i hukommelsen. 

Samtidig er sorteringsrutinen gjort 
mange gang hurtlgere. idet kontonum- 
rneret affseses fra hvert enkelt bilag I 
bilagsfilerne, sa bilaget direkte kan 
summeres med den tidllgere vasrdi. 
Da programmet kun har kunnet skri- 
ves til brug med diskettestation, er re- 
sultatet, at bilag for et heJt ar ofte vil 
kunne indleeses og opsummeres pa 
under et minut! 



Betjening 

Programmet loades pa* normal made 
ved at indtaste PERIODEREGIM- 
SKAB,8og RUN. Herefter sparges der 
pa skaarmen, om man onsker at op- 
summere over hele aret (hvis alle bi- 
lagsfiler eksisterer), eller kun for et en- 
kelt kvartal. Vaslges der kun et kvartal, 
sparges der om kvartalets nummer. 
Evt. kan man vaslge at loade privat- 
regnskabet ved at indtaste L, eller at 
vende tilbage til BASIC ved at indtaste 
B. 

KontoPlanen loades sa atf program- 
met fra disketten, hvorefter bilag fra de 
forskellige maneder opsummeres ef- 
ter kontonummer. Til sidst saves en 
pseudo-bilagsfil med navnet TOTAL 
("maned" 13), 1. KVARTAL ("maned" 
14), 2. KVARTAL ("maned" 15), 3. 
KVARTAL ( ' 'maned" 16) eller 4. KVAR- 
TAL ("maned" 17). Alle Pseudo-bilag 




bliver dateret den "00 " i den pagasl- 
dende "maned", og far sa meget af 
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Til Commodore 64 

PERIOOEREGNSKAB 



10000 REM»x"***""****X*X«***X*X*«* 

10001 REM INITIALISER 

10002 REfixxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
10010 Dinrc-it 1005: Ulf1MDlCl6 ): DIMBI it 255 3 
10020 HJi= T 20SPC J" 

18030 DIMPEUB0) 

10050 STREGt=T40S/C3" 

10051 (101(8 1: 1ANUAR" :MDiU 3= FEBRUAR" 

10052 MDi(2 1= riflRTS M0iC3)= APRIL" 

10053 MDi(4 )»" riAJ :MP*C5 3=' JUNI" 
18051 HD1C6)-' JULI ':f1Di(71=' AUGUST" 

10055 MUitS )- SEPTEMBER'' :M04C9 3= "OKTOBER 

10056 MDiC 101=' NOUEMBER* :WD*H1 3*"DECEMB 
ER"' 

1005? P1D*C12)= TOTAL " 

10058 MDiC133= I. KUflRTAL :f1Ditl4) = '2- K 

oriRTAL" 

18059 riaiftS 3= 3. KUfiRTftL :nO*riB3= 4. K 
UfiRTAL' 

10999 GOTO29080 

1 1558 RE.r\xxxxxxxxxxxxxxxxxxxxxxx-x*jtxxxx 
11551 REM LOAD KONTOPLAN 

1 1553 Rtnxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1 1555 GOSUB20480: X=I3: Y=22: GOSUB20080: PR 

INTTREUJ UENT 1 TUNUT 

11560 OPEN1 ,8.2. 0:KONTOPLAN.5 ,R" 

1 1578 FORI -010 100: INPUTH.TEtl I ) 

1 1575 IFTEit 13 = ' 'THENTE*(I)=HJi 

1 157B NEXT I 

1 1580 CLOSE l: RETURN 

16500 REM" «**»x«xx*xxxxxx«xxxx 

16501 REM OPBYG BILAGSF 1 L 

16583 Rfiftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
16510 IFDi= A THENDAi-LEFTi CBI 4( 1 ),4D+"1 
300" 

16520 IFOi^ K"flNDKXTiTHENDAi=LEFT4(BI*Cl 
3.4 3+ 1400 

16530 IF(H= K '«NOKx-2THENDAi=L£FT4CBIiU 
1.4 )* 1500 

16540 IFQi = K ANDKx-3THENDA4=LEFT4CBI i( 1 
1,4)+ 1608 

16550 IFQ*= ' K" ANDKx=4THENDfH=LEFTtCBliCl 
1,4)+ '1708 
16590 N=0 

16608 FQRI=0TO99: IFMIDiCTEitl 3 .5. 12 3= T I 
2SPC 3 " ANDPE ( I 1 =0THENGOTO 16740 
16610 IFK18TMFNI*= 8 *riI04(STRi(I 3,2,1 3 
16620 IFI>3THENI*=M1D*CSTR*.(1 3,2,2) 
16700 BE-PECI J:GOSUB205B8:GOSUB21000 
16718 PEi=LfFT4Cf HMi+S TRi C PEC I ))+UEi),18 

16720 BI tTNl=OA* t I*+riIO*CTEiC I 3.5 . 12 )*' P 

*PE4 
16738 N-NH 
16740 NEXT! 

1 7000 Rtpxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
17801 REM SAUE OP SUMflERET FIL 
1 7083 REftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
170B5 BJiCN)= x 

17010 FI*=niO*tDA*,5.2):FI=UAL(FI*J 

17020 0PEN3.8.4. 00: ' *MDitFI- 1 )+ ' .S ,U" 

17030 I =1 

17040 PRINT03.N 

17050 PRINT«3,B!1CI 3 

1706B IFBI4fI3= ■ THEN17B88 

17078 I =I*l:GOTO17050 

170B0 CL0SE3:F0RI =U0N:BI4tI )= : NEXT 
17030 N*l*Jlt*Cll*' =mi*2J=' :MI*(33=" ! 
GOTO29000 

1 7100 R£?\*xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



17101 REM LOAD BILAGSFILER 

17103 Rtflxx xx xxxxxxxxxxxxxxxxxxxxxxxxxx 

17185 0PEN3. 3.4. Flit- -5.R" 

17118 1=1 

17120 INPUI B3,N:NN=N: MN=N 
17130 !NPUIo3.Bmi 3 
17140 IFBIi C I )•*" ""THEN17168 
17150 I-Itl:GOTOI7130 
17168 CLOSE 3 

17170 flT if I )-LEFT4(BIiCl 3.4 ): fl It(2 3=niD* 

fBIill 3.5.7 ): RE TURN 

19000 Rr.f1«*"""*xxxxxxxxixi:*-«X3:xxxxx 
19801 REM OPSUHMERING AF BILAGSFILER 
13003 Rtftxr-xxxxxxxxxxxxxxxxxxxxxxxxxxxx 
13018 GOSIJB11550 

19020 IFG4 = A THENF0R|1 = lT012:Fii-nDiCl1-l 

):GOSUB17180 

19030 !F(H= K " ANDK* - 1 THENFORM - 1 T03 : F I i =H 

DiCM--l 3:G0SUB171B8 

19840 IF(3i= K " ANDK* --2THENT0RM = 4T06: F I i =H 
Di(M-l 3:GOSUB17100 

1 9050 I FQi = "K" ANDKn O THENFORM =7T09: F 1 i =M 
DifM-1 3:GOSUB17100 

19068 IFQi= K' ANDK^-4THENFORM=10TD12:FI4 
-MDiCM-1 l:GOSUB17100 
19108 FORI =1T0N-I 

19128 I I :| Jni. CMIOiCBIiCI 3,9.23) 

19138 PEC II 3 -PEC I I 3»UALCRIGHT4 CBI iC I 3.10 

3) 

19110 NEXT [ ; NEXTM 
19198 GOTOIG500 

20908 RF W*v\xtxxx*txxxxxxxx xxxxxxxxxxxx 
20001 REM SUB. T I L PRINT AF X.Y POS . 
20082 REiAxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
20010 PRINT f H0M3": 

2082B IF YOB THEN POKE 214 ,Y-1 : PRINT 
20030 POKE 211 ,X 
20048 RETURN 

20400 REr\xx*xxxxxxxxxxxxxxxxxxxxxxxxxxx 

20401 REM SUB - HEX BLANK L1N1E 

20103 R£f\xxxx*xxxxxxxxxxxx*xxxxxxxxxxxx 
20418 X-8:V;2Z:GOSUB20080 
20420 PRINT I4BSPC] - RETURN 
20508 R£?\xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
205BI REM SUB . HOEJRE MARGIN FOR BELQEB 
28503 REftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
20510 IFABS1BE 3<1 0THENHH4 = 'T 5SPC] " : RETUR 
N 

20520 I F AB5 C BE 1 < L 00THENHM4 = f 4SPC 3 " I RETU 
RN 

20530 IFflBSlBE ia000-THFNHTH= T3SPC] : RET 
URN 

20540 IFABStBE )<10080THFNHHi = ' I 2SPC] ":RE 
TURN 

20550 IFABSCBE )<100880THENHMi = " ' : RETURN 
20560 HH4= : RETURN 

21000 RZftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
21081 REM SUB. OEREBELOEB 

21003 REftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21010 IFABSCBE- INT C BE 3 3 =8THENDEi= ' .00" :R 
ETURN 

21820 DEi= B ■ RETURN 

29008 R£tfx*xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

29801 REM SKAFRMBILLEDE 

290B3 RfLftxxxxxxxxxxxxxxxxxxxx xxxxxxxxxx 
29018 PRINT rrLRJCUHT) - P0KE53288 .0: POKE 
53281 .2 

29B2B X =7" ^ = 1 : GOSUB20800: PRINT R UN - C 
OMMODORE MAGASIN* 

29030 X=12: Y=3: GQSUB2B800: PRINT PRJUATRE 

GNSKAB . 

29B4B X=9: Y = 5: GOSUB28B08: PRINT TREUJP E. 
RI ODESLUT 

29845 X = 11:Y=10; GOSUB20008: PR INT f L: LOA 
D REGNSKAB3 

29046 X = U:Y = i2:GOSUBZ0000:PRINT fB: BAS 

icr 

23050 X=0; Y=2B:6OSUB2B080;PR1MTSTRE6S 
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29060 X=3: r*=22: GOSUB20000: PRINT f RFUJ CO 
FF1KCRF_Ul<JflRTflL EU.ER t OFF jftl REU]flR - IN 
DTfiST K/fi 

29070 BET 01: IFQ*~ THENZ307B 

29080 IFCHO K "AMDQlO" A flNDOt <>"L" ANOQi 

<>' BTHENGOTD23070 

290*30 IFQ*: K THFNGOTO29300 

29100 IFQ* n THFNGOrO13000 

29110 irO*- L THENGOTO29950 

23120 IFOi B THeMPRINF rCLR]":FND 

29300 REn*"**«*«*"*«****itx*xx*;x;*xxK 

29301 RCP1 [NDlfiST KUflRTAL 

29303 RCn^xxxxxxxxxxxxxxxxxxxxxxxxxxxxn 
29310 OOSUH/'0100; X-9; W~22i GOSU920000: PRI 
NT r RF.U ] INUTflST KUflRTflL 1-4 
23320 GETk.-/: I PK* aORK:O'HHENGOTO29320 
29330 GOTO19000 

29950 R£riTXXXXXXTXXXX*-XXXXXXX-*XXXXXX*XX 

29951 RCP1 LOOfJ REGNSKAB/BASIC 

29953 RWxxxxrxxxxxxxxxxxxxrxxxxxxxxxx 

29960 PRINT t CLR ] 

29961 X=0: *-0: GOSUB'20000: PRINT "uOflD "+CH 

Rf GNSKOBySflSIC 'CHRiT34J-t .8" 

29965 X=0: GOSUB208B0: PR1KT' 10010 Did 
Tr*(1001:Dinf1Oi( 16D:DIT1BUt 16, 100 3"! 

29966 PR I N T ' D I MB I ♦ ( 255 3 ' 

299.70 PRINT 10058 MD* C 1 3 )= +CHR*C 34 3+" 1 . 

KUARTAl 'CHRi(34)i 
29971 PRINI IDtC 14 )= <-CHRiC34 )+ 2. KUAR 
TftL'+CHRif 34 3 

29975 PRINT 10059 MUiU5 3= +CHRiC 34 3+' 3 . 
KOflRTOL *CHR4t343; 

29976 PRINT " «D* f 16 3 = ' *-CHRiC34 3+ 4. K<JflR 
TAL *CHRif 34 ) 

29977 PRINT 19430 PR* - *CHR*C34 3+ BUDGET 
KUflRTAL " + CHR4(34 3; 

29976 PRINT :np*C163=-*CHR*C34)+"4. KYRR 
TflL +CHR*C34 3 

29977 PRINT 1943B PR*= -*CHR*(34 3f BUDGET 
OG POSTFR INGtR ' *CHR*f 34 ) f -PR* 

29979 PRINT "19300 IFF I <14 THfNBUt = - f CHR*( 
34 3+ TSSPCr 'CHR«C34 3; 

23373 PRINT '5TR*fBU(FI .Dtl 33:BU*=RI6HT* 
TBUS.7 ) ':PRINT RUN 

29980 P0KC63I . 19; P0KE632 . 1 3: P0KE633 . 1 3: P 
OKE634 . 13: P0KE635 , 1 3: POKE636 ,13 

2338 1 PDKF 637.13: POKE 638 .13: POKE 1 38 . 8 

KONTROLSUM FOR FFR I ODEREGNSKftB 



10050 


23 


10051 


91 


10052 


150 


i0053 


163 


10054 


172 


10055 


96 


10056 


138 


10057 


227 


100S8 


36 


10059 


44 


10939 


132 


11550 


123 


11 55 1 


165 


1 1S53 


123 


1 1555 


49 


11560 


31 


1 1570 


83 


i 1575 


62 


I 1576 


203 


I 1500 


153 


16500 


123 


16501 


221 


16503 


123 


16510 


149 


16520 


162 


16538 


164 


16540 


L66 


£6550 


168 


16590 


48 


16690 


81 


L6610 


0 


16620 


185 


16700 


224 


L67I0 


96 


16720 


189 


16730 


41 


16740 


203 


1 7000 


123 


17001 


10 


17003 


123 


17005 


1 18 


17010 


44 


1 7020 


187 


17030 


44 


17040 


69 


17050 


64 


17060 


155 


17070 


223 


17080 


225 


17090 


54 


17100 


123 


17101 


19 


17103 


123 


17105 


36 


17110 


44 


E7I28 2 20 


17130 


44 


17140 


154 


17150 


222 


17160 


211 


17170 


148 


19000 


123 


19001 


240 


19003 


153 


19010 


137 


19028 


36 


1 9030 


0 


19010 


7 


I 9050 


1 4 


13060 


99 


I 3100 


123 


19128 


1 29 


19130 


82 


19148 


212 


19198 


1 33 


20000 


123 


20801 


97 


20002 


I 23 


2001 0 


43 


20020 


1 


20030 


207 


20040 


142 


20400 


1 23 


20401 


217 


20403 


123 


20410 


156 


20420 


165 


20500 


123 


20501 


82 


20503 


123 


20510 


235 


20520 


251 


20530 


1 1 


20510 


27 


2E550 


43 


20560 


1 19 


21800 


123 


21001 


187 


21003 


123 


21010 


211 


21020 


155 


29000 


123 


29001 


99 


29003 


123 


23010 


214 


29020 


238 


29030 


6 


29010 


47 


29045 


102 


Z3046 


51 


29050 


22 


29068 


76 


29070 


239 


29030 


88 


23030 


111 


29100 37 


231 1 0 


I 23 


29120 


9 


29308 


123 


29301 


251 


23383 


123 


23310 


201 


29320 


95 


29330 


131 


29950 


123 


23951 


205 


23953 


123 


23360 


1 1? 


29961 


47 


29965 


235 


29966 


141 


29970 


177 


23971 


148 


29975 


182 


29976 


152 


29377 


i 


29978 


93 


23979 


45 


29380 


1B9 


29981 


160 







13000 123 10001 236 10002 123 

10018 174 10020 11 I0030 253 



Fortsat fra side 1 1 

vejledningen. og hvert har sil eget ka- 
pitel i manualen. Gennem eksempier- 
ne pa, hvordan man tager en beslut- 
ning | laar er brugeren at legne et besl ut- 
ningstraa, hvordan man skelner rnel- 
lem beslutningsknudepunkter og risi- 
koknudepunkter. og hvordan endetig 
man bedst griber en situation an. Se- 
nere vises der sa om man tog den rigti- 
ge beslutning, og om den stadig er 
brugbar, hvis en eller flere af betingel- 
serne for den aandres. 

Del omfang a( beslutnlnger der la- 
ges hver dag er sa enormt og vigtigt at 



et sadant program er en vaerdifuld ny- 
skabelse til maangden af software til 
64'eren. 

KONKLUSION 

Der er masser sakaldte business-pak- 
ker, der ikke engang er den diskette el- 
ler det band vserd, de er lavet pa. Der- 
for er del forfriskende at finde pro- 
grammer, som er et velkomment til - 
Iseg til udbuddet af business-software, 
og som ogsa er i besiddelse af en vigtig 
uddannelsesfunktion. Hver eneste 
pakke er gennemtsenkt pa forhand, og 
praasentationen af dem er af ekstrem 



hoj standard. Eneste minus er, ai 
laarebogen/manualen er skrevet pa 
engelsk, og kraaver et rimeligt kend- 
skab til sproget, for man kan faet goal 
udbytte af programmerne, isaar af den 
tekniske side. 

Som sag! er indholdet af program- 
me! af stor vaardi. Desuden er den 
overvejende de! af programmerne 
skrevet i basic med passende maskin- 
kode-subrutiner. som kan listes. Den- 
ne facilitet kan forbedre ens eget pro- 
grammeringsniveau ved at studereen 
professionel programmers arbejde. 
Kort sagt: Fremragende kvaUtet. 



14 



Maskinkode del 2 

Af Jorgen Jorgensen 



Scm nffivnl i sidste nummer, vll vi bru- 
ge Jim Butterfields SUPERMON som 
udgangspunkt for dette kursus. Pro- 
gramme! blev llgeledes bragt i sidsle 
nummer, og vi gar ud fra, at du har 
programme! pa skasrmen foran dig. 

SUPERMON 

Mar du ka-rer programmet, vil du over 
den hvide blinkende cursor se en raak- 
ke mystiske tal og bogslaver. 

I everste linie vil du se bogstaverne 
PC, SR. AC, XR. YR og SP. Dette er for- 
kortelser for de lorskellige »registre«, 
vi har atarbejde med. 

PC er en forkortelse for Program 
Counter. Den fortasller i hvilken adres- 
se, vi er i gang med at Isegge en vaardi 
Star der f.eks. pa linien under 97FE 
(HEX) betyder det, at programtselleren 
star i den pagseldende adresse, som i 
dette tilfeelde svarer til adresse 3891 0. 
Prav i farste omgang at betragte 
PC'eren pa samme made som linie- 
numrene I BASIC. 

SR star for Status Register og dette 
vil sammen med SP. der star for Stack 
Pointer, blive behandlet senere. 

De tre reste rende AC, XR og YR star 
for henholdsvis Accumulator, X-regi- 
sler og Y-reglster. Prav at betragte dis- 
se tre reglstre som tre (BASIQvaria- 
bier, i hvilkedu hsjstkan Isegge vserdi- 
en 255 (del hajesle tal I en byte). 

Assembler 

Dette er det »programmeringssprog«, 
vi bruger til maskinkode. Det mdehoi- 
der relativt fa »kommandoer«. idet det 
er et sakaldt lavnlveausprog. der kun 
omsastter del indtastede til maskin- 
sprog. Assembler bestar allid af en for- 
kortelse pa tre bogstaver. 

Lad os starte med at se pa de ferste 
tre forkortelser og deres betydning: 

LDA betyder LoaD the Accumula- 
tor. 

STA betyder STore the Accumula- 
tor. 

RTS betyder ReTurn from Subrou- 
tine. 

Vi kan med disse t re »kommandoer« 
prove at lave vores ferste maskinkode- 
program. 

Skriv i din masklnkodemonitor fel- 
gende: 

A COOO LDA tt $06 



Punktummet var der i forvejen. Pa nse- 

ste linie star nu 

.AC002 

Du skriver mu vldere sa der star: 
.A C002STASDO21 
Pa naaste linie star nu: 
AC005 

Du fortsastter med 
.AC005RTS 
Sa star der: 
.A COOS 

Tast nu return, og nu er der kun et 
punktum foran cursoren. 
Skriv nu, sa der star: 
.GC00O 

Hvad skete der? Skasrmen blev bla! 
Fork! a ring 

COOO er det Hexadecimal? ta! for 
49152 og det er startadressen for vo- 
res maskinkodeprogram. Dobbeit- 
krydsel (Hashmark) efter LDA betyder 
"immediate addressing" d.v.s, det tal, 
der f0lger efter. skal Iseggesdfrekte ind 
i accumulatoren (lasnk pa en variabel). 
Dollartegnet tilkendegiver. at tallet er 
et Hexadecimal* tal . I BASIC ville I inien 
svare til A = 6. 

Programtselleren taaller automatisk 
videre idet den foregaende linie opta- 
ger to adresser. STA $ D021 bety- 
der, at man laegger indholdet af accu- 
mulatoren ind i adressen SD021 . som 
er det Hexadecimale tal for 53281. 
»Oversat« til Basic betyder linien: 

POKE 53281, A 

RTS i nasste linie svarer til Basickom- 
mandoen RETURN. 

.G COOO betyder ga til COOO (491 52) 
og kor programme!, der llgger der. 

Adressen 53281 er den adresse, 
der styrer farven pa sksermen, og hvis 
man poker tallet 6 ind i den adresse, 
bliver sksermen netop bla. 

Prcw sa at trykke pa RUN /STOP og 
RESTORE og skriv SYS49152. Skaar- 
men blev bl a igen , fordi du startede dit 
masklnkodeorogram med SYS-kom- 
mandoen. 

Og husk til sidst, at maskinkode- 
programmet bliver liggende ogsa selv 
om du skriver NEW. 

Pa gensyn I nseste nummer. 



BIT-Borsen: 

Bytes - kr. 49,83 
pr. kilo 

Det ser vanvittigt ud, men det er faktisk 
prisen, hvis du vil udvide din BASIC- 
RAM fra 38K til 50K. Regnestykker 
bliver sa 12K a kr. 49,83 = kr. 598,00. 





; io« | - -J 








SOM 






Q 





Med modulet RADARBASIC, som 
Twilight impolereT, udvider du din hu- 
kommelse til 51 . 1 99 bytes. Du far i Ml- 
gift 10 gang© hurtigere loadning fra 
kassette, nemmediskkommandoerog 
en RENUMBER kommando, der ogsa 
retter GOTO's og GOSUB's. 

Fuld kompatibel med standard Ba- 
sic V2 og fuld adgang til lyd og video- 
chip. 

En saardeles mteressant nyhed. 



Bundtost joystick 




Hvor Seren er resten henne? 

Det var terste kommentar til dette 
nye joystick, der kun bestar af et hand- 
tag. 

Del fungerer godt nok, men man 
skal selvfeHgelig vasnne sig til, at det er 
handtagets stilling i forhold til det vand- 
rerte plan, der bestemmer bevasgel- 
serne. 

Det nye joystick importeres ligele- 
des af Twiligt, og koster kr. 195,00. 
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Der var engang... 



Af Robin Sagar 

Eventyr, dette ord fremmaner bille- 
der af jagt pa forsvundne skatte i 
sydamerikanske jungler. kampe 
med pi rater om spansk guld og rej- 
ser ud t rumme t »f rygtles. pa stedet 
hvor intet menneske har va3ret«. 
Dette erogsa meningen med denne 
side i RUN. Det er min mening at 
forsoge at bringe lasseren i kontakt 
med de bedste og nyeste eventyr- 
sptl, at skaerpe deres appetit til at 
kigge bag spillene pa de firmaerog 
programmerer, der fremstillerdem. 



Computerspillere kan graft tagel deles 
op i lo slags. Dem der elsker at skyde 
ned og trasne deres refiekser med el 
joystick, og evenlyrerne der elsker ud- 
fordringen ved at afdaakke et puslespil 
af begi venheder , og l0se gaden ved irv 
tens hjernegymnastik. 

EXAMINE 

Forste kvartal af 1985 har overbevi- 
sende vist eventyrspillenes populari- 
tet, da dec laves flere eventyrspil end 
nogensinde tor. Udviklingen gar af- 
gjorl mod software pa disketter, der 
giver starre mullgheder mht . brugen af 
grafikog 1yd. Et eksempel pa dette er 
den nye udgave af »THE HOBBIT« fra 
MELBOURNE HOUSE. Dette er pa en 
dobbeltsidet diskette. Side 1 har tek- 
sten, mens side 2 har alt grafikken. 
Grafikken er blevet vassentligt forbed- 
rei i forhold til den orginale version, og 
nu er der musik og billeder til hvert 
eneste sted. Antallet af steder er ste- 
get til mere end 80, og ordforradet er 
udvidet til mere end 900 ord. De andre 
nye spil fra MELBOURNE HOUSE, 
men pa band, er CASTLE OFTERROR, 
og GRAND LARCENCY. Nyt fra CBS 
pa activision er WINDSTORM og TRA- 
CER SANCTION. En vsesenllig tigur I 
dissespil er den mystiske kondor, der 
vil hjaslpe dig 3 gange i hverl spil. Fra 
U.S. GOLD er der kommet to nye stra- 
tegiske spil: BATTLE FOR NORMAN- 



DY og COMBAT LEADER. Disse er 
begge en computerudgave af tilsva- 
rende brsBtspil fra Strategic Simula- 
tion Inc. I na?ste nummer af RUN vil 
emnet om strategiske spil bllve udfor- 
sket dybere. 

READ 

Eventyreren har mulighed for at vselge 
mellem forskellige boger til COMMO- 
DORE, der beskriver hvordan, man la- 
ver e\ eventyrspil. To gode eksempler 
er: "COMMODORE 64 ADVENTU- 
RES" af Mike Grace, udgivet af Sun- 
shine Books, og "EXPLORING AD- 
VENTURE GAMES ON THE COMMO- 
DORE 64*. af Peter Gerrard fra Duck- 
worth. Desuden har jeg for nylig set en 
mege! interessant bog. der hedder: 
"THE SECRET OF ARENDARVON 
CASTLE« af Ha) Renko og Sam Ed- 
wards. Denne bog er et computer- 
eventyr. Spillet skal skrives ind i com- 
puteren, og pga. starrelsen er det skre- 
vet i en slags maskinkode. Bogen inde- 
holder ogsa et «decoder/check« pro- 
gram til hjcelp med indlastningen. 

Da den anslaede indtastningstid er 
11 timer, foreslar forfatteren, at man 
indtaster en del hver dag over en uge. 
Bogen har en glimrende handling, og 
er i sin udformning uddrag af aviser, 
kataloger osv. Bogen koster 115 kro- 
ner, og kan anbefales pa det va rmeste. 

HELP 

For de IsBsere der ansker at skr i ve de- 
res egne eventyrspil, kan man kabe to 
anbefalelsesveerdige programmer. 
Det ferste er QUILL, og det andet er 
diskversionen af samme, blot kaldet 
ADVENTURE WRITER. Begge pro- 
grammer eropbygget saledes, at alle 
instruktioner indkodes fra en menu. 
QU I LL-/AD VE NTU RE WRITER-syste- 
met er lavet 1 3 dele. Disse er: en data- 
base med alle relevanteoplysninger til 
eventyret, database-editor der sarger 
for lilfajelser, sletning og forandringer 
af dataen i basen, og endelig fortolke- 
ren der bruger dataen til kontrol af 
eventyret. Det kan tage lang lid at lave 



et eventyrspil, da dette indebaarer 
meget arbejde. For at lave et eventyr, 
med hjaelp fra disse systemer, er det 
nedvendigt at lave beskrivelser af lo- 
kaliteter. opbygge et register over be- 
vaagelser, ordforrad og beskrivelse af 
genstande, samt teste og udvide spil- 
let, og til sidst saatte lyd pa hvls det er 
nadvendigt. Ordforradet erbegrasnset 
til 254 ord. og det er ikke tilradellgt at 
lave mere end 50 lokaliteier, men bort - 
set fra dette er ADVENTURE WRITER 
og QUILL glimrende programmer, 
hvilket ogsa kan ses pa den masngde 
at spil, der er skrevei med disse syste- 
mer. Mindbender, The Pen og The 
Dark and Pub Quest er blot tre. Hvorfor 
erder mgen danske eller norske even- 
tyrspil? Hvis nogle kunne tsenke sig aE 
skrlve et og sende det til RUN . (hel st pa 
diskette) vil jeg veere mere end vill ig til, 
at bedomme det pa denne side. 






Adventure 
Writer 



■ 



QUIT 

Dette Oliver det sidste for denne gang . 
I naeste nummer vtl jeg kigge nsermere 
pa MELBOURNE HOUSE og deres 
eventyrspil, en gennemgang af det ny- 
este pS markedet. en sterre gennem- 
gang af strategiske spil, og nogle vink 
til dem der har problemer med forskel- 
lige spil. Farvel for nu og HAPPY AD- 
VENTURING. 
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Eureka! 




Af Flemming Lerbsek 

»Jeg har det, jeg har det«. Hvem vil 
ikke geme kunne rabe det, nar be- 
lonningen er 25.000 engelske 
pund? 

Men det er nu ikke sa helt lige til 
at kunne rabe »Eureka«. Forder lagt 
mange timers snedig programme- 
ring i eventyr-spillet »Eureka«, som 
Handic Software udglver for DO- 
MARK, der har kons true ret spillet. 



»Eureka« er Ikke blot el spil . Del er fern 
even tyrspil og et arcadespil , De er f let- 
tet ind i h manden pa en made, sa man 
kun nar til det telefonnummer, der gi- 
ver adgang til de mange penge. hvis 
man loser alie fem »adventures«. 

Det er fantastisk speendende at spil* 
le med. Ikke blot sergrer man sig hver 
eneste gang, man med en bemeerk- 
ning om. at alt hab er ude for indevas- 
rende, bliver sendt tllbage til udgangs- 
punktet. Nej. man fryder sig over spil- 
lets store svasrhedsgrad. Der skal vir- 
kelig tasnkes, og jeg vll anbefate, at fa- 
milien ga r sammen om at udteenke 1 0s- 
ningerne. 

Det er ikke nok at Icse de fem spil. 
Man skal ogsa kunne saslte dem ind i 
en sammenhaang i det eventyrhaafte 
med smuk poesi, der har t<lknytning til 
hvert eneste af de fem adventures: 
Den forhistoriske tid P Det romanske 
Italien, Slorbritannien pa kong Arthurs 
lid. 2. Verdenskrigs Tyskland og det 
moderne Car ibbien. De fire forste spil 
skal tases. inden man kan starte pa det 
Femte, der foregar i vor tid. 

Og hvad gar det sa ud pa? Jo. histo- 
rien er den. at der er fundet en talis- 
man paManen. Deter en ternmgpa 15 
tommer pa hver side, og da man un- 
derssgte den pa Jorden. gik den itu og 
fem stykker forsvi nder - 1 ilbage i tiden . 
Dem skal spillerne finde. 

Hjemetrust 

Se det er jo attsammen lystigt, isasr da 
der vinker omkrlng 300.000 danske 



kroner for lesningen, hvis den flndes 
inden arsskifte} 85/86. 

Men enhver. som har prsvet spillet 
- og det er hermed anbefalet pa det 
varmeste - ved, at del er forbistret 
svasrt. Men hvorfor ikke ga sammen 
og give tips om . hvordan man overvln- 
der denne eller hin hurdle? 

Den »de fik vi her pa redaktionen, og 
vi stiller nu spalleplads lit radighed, 
hvis du har el tip til at komme videre, 
ell er hvis du efterlyser en losning pa et 
problem. Al korrespondance foregar 
gennem »RUN«s spalter. Det nytter ik- 
ke at ringe og sparge redaktionen. 
Husk det. Men skriv, sa tager vi det 
rned, hvis der er plads, og 
spargsmalet/ svaret er relevant. 

VI starter med at give losningen pa 
de ca. farste 10 pet. af »adventuren«, 
som foregar i den forhistoriske tid. En- 
hver, som vil vaare med, er velkommen 
til at give gode rad om, hvordan man 
tegner godekort. For kontegningen er 
alfa og omega i eventyrspil. Ellers kan 
du begynde fra »scratch« hver eneste 
gang du smides til udgangspositionen. 

Farst et par gode tips: Hvis du har 
en videorecorder, er det godt at bruge 
den til at optegne dine Irak, sa du kan 
studere dem senere. 



Husk aitid at undersoge alle positio- 
ner og tegn et godt kort. Lses alle 
brugsvejledningens tip igennem. Der 
er megen hjaalp at hente. Og specielt 
om det forhistoriske spit kan jeg ud fra 
mine ertaringer fortaelle: 

Pas pa de steder, hvor der kommer 
el udrabstegn f rem. Det betyder "time- 
limit", og sa skal det ga hurtigt. Brug 
derfor de angivne forkortelser. »Take 
dit eller dat« er overflcdig. »T« er nok. 
Sa kan du altid bagefter med »l« se, 
hvad du har faet pa krogenl 



Lasnlngsforslag 

Her er de ferste farlige - og usikre - 
skridt: 

1 . et smeltevandsieje 

2. S (tor Syd) savanna - TB (TidsBe- 
grasnsning) - (Take) (musen). 

3. N(torNord)-E(£asty0st)smelte- 
vandsaflejring - T - (flint). 

4. S-jungle - TB - SW (syd-vest). 

5. jungle - TB. 

6. E - jungle med mistaenkelig for- 
dybning - J (Jump/Spring). 

6 a Sa falger nogle uforklarlige lure 
op nordpa igen. Malet er at r>a lil 
»4« og derlra til: 
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1 


^3 


s 


s 

- 


-N 




■ — < 

s 

t 


2 




4 






SW 






i 























7. N - N - E - Foden af et bjerg. 

8. Up - bjerget s top - T B - T (salpe- 
ter). 

9. S ■ marnutternes kirkeg^rd - T 
(ben). 

10. SW - Sump (kul)- MAKE AXE (lav 
en ekse). 

1 1 . S - flodbred (nordsiden). 

12. W (vest) - CUT TREE (fsld trae). 

13. E - E - toppen al vandteld - L 
(look) ellers opdager du aldrig de 
gemte Irin. 

14. D(Down/ned)-tsetpSs0en. 

15. S-pS seen. 

16. D-dyktilbunden-TB-T(enstor 
rubin) - UP. 



W 



8 -i 



SW 



10 









s 






12 


Lw 


11 




13 




N 











A 



17. S-sumpet omrade-STASTILLE 
ellers gar del dig som mig: du tra- 
des ihjel = start forfrat - WAIT 
(vent) - T (udhulet bjselke) - WAIT . 
del var de forste 10 pet . af det fsrsle 
»adventure« i serlen, som EUREKA by- 
der pa. Er du med pa holdet , sfi sk riv til 
RUNog maark kuverten »EUREKA«. sa 
bringer vi dlt bidrag til losningen i nas- 
ste nummer. 

Men husk det haster. Og selvtelge- 
lig lager vi gerne hul pa alle fire-fem 
»advemures« pa en gang. Hovedsa- 
gers er t at vi i fsellesskab nar sS langt 
som muligt. For hvor skulle de 25.000 
pund ikke ga til en af vore latere? 



Down 




own -Up 



Owen Bishop 

FA MERE 
UDAFDfN 



Boganmeldelser 



Af Jargen Jergensen 

De fleste skal pa den ene eller anden 
made forsvare kobet af deres hjem- 
mecomputer, sa omverdenen ikke 
tror, man blot er et stort legebarn. 



Kniber det med at finde fornuftige 
argumenter, er der maske lidt hjaalp at 
hente i »Hjemmets computer" fra 
Clausen Boger, Bogen indeholder 
nogle helt generelle Basic-program- 
mer til brug i hjemmet. Imidlertid er 
dlsse programmer udvikletpaen Com- 
modore 64, og hermed har den specie! 
interesse for RUN's Isesere. Bogen 
indeholder programmer og anvisning 
pd mallng og styring af temperatur, 
benzinregnsKab, regnskab med 
fyringsolie, database og forskellige 
renteberegnlngsprogrammer. 

Deter ikke nogenavanceretbog, og 
den drevne programmer kan ikke hen- 
te meget i den. Derlmod er det en me- 
get jordbunden bog for begynderen, 
og prisen er for en gang skyld ogsa ri- 
melig: kr. 79.00 for 96 sider. 

FamereudafdinVIC20«.Ja,det er 
rigtig nok - VIC 20. 

Bogen er en oversaattelse af Owen 
Bishops engelske udgave, der udkom i 
1983. Det er en aldeles fremragende 




bog, og er man glad for sin VIC, bor 
denne bog ikke mangle hjemme pa 
reolen. Den spaender vidt i indhold og 
henvender sig til save I begynderen 
som den mere erfarne. Farver, lyd, 
grafik, tabellerog meget mere. Det er 
modigt gjort af Teknlsk Forlag at ud- 
give denne bog, men den fortjener 
succes. Prisen er kr. 1 69,00 for 2 1 7 sfc- 
der. 



C. D-aa Ravn 

Hjemmets 
computer 

basic-programmer 
til brag 1 hjemmet 
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Din Commodore 
og andre computere 

Af Frank Bason og leo Hejsholt-Poulsen 




RC Partner og en Commodore koblet sammen og klar til udveksling af 
programmer og filer. 



Een al de kvaliteter, som Commo- 
dore 64 (og SX-64) ejere saatter pris 
pa, er computerens mange tilslut- 
ningsmu ligheder. C-64'eren er sa le- 
des »fodt« bade med en parallel 
brugerport og IEEE-488 seriel for- 
bindelse (til diskettestatfon og an- 
det tilbehor) savel som en RS-232C 
graansellade. Sammen med den 
nye Commodore COMAL kapsel er 
der virkelig mange muligheder for 
datai ndsamli ng, s tyring og forkom- 
munikation med andre computere, 

Mange etever og mange leerere har 
adgang til en Commodore i deres 
hjem . Har de Ikke Commodore udstyr 
pa skolen, kan deE vsere svaart at over- 
fere programmer og andre filer (f.eks, 
tal, tekst eller andet)til skolens udslyr. 
eller omvendt. I denne artikel ser vi 
specieit pa, hvordan man kan sende 
COMAL programmer og sekventietle 
filer frem og tilbage mellem en Com- 
modore 64 (eller den kompatible SX- 
64) og Regnecentralens Partner (efler 
Piccoline med kornmunikationskort). 

Det er naturligt at udnytte RS-232C 
graansefladen tit denne to-vejs kom- 
munikationsopgave, da mange data- 
mater understetter denne standard. 
Bemaark her, at C-64 krasver brugen af 
e! RS-232C modulslik, der eendrer 
Commodorensspaendingsniveauer (0 
og 5 volt) til RS-232C standardens 
plus/minus 12 volt. Dette modulstik ko- 
ster mellem ca. 3O0 og 700 kr„ afhsen- 
gig af fabrikat. I dette eksempel er der 
brugt ei Handle RS-232 modul. Des- 
uden er det nodvendigt, at compute- 
ren. som via kabel skal forbindes til C- 
64, er forsynet med en RS-232C graan- 
seflade med bade ind- og udgang. 

Kabelforbindelsen 

RS-232C standarden foreskriver, at 
DB-25 hanstik skal bruges i begge en- 
der af forbindefseskablet. Dette kan 
vlrke lidt mserkeligt. fordl der kun er be- 
fiov for 3 ledninger, og DB-25 er et 25 
pol stik. Dette valg er nok alligevel 
klogt. dels fordt der skal kortsluttes 



nogleben I Partner -endenaf kablet.og 
dels fordi RS-232C forbindelserne til 
begge datamater anvender DB-25 
standarden. 

Udgang fra C-64 Partner 
kommunikationsporl 

ben2..(lnd-signai-ud) ben 3 

3..(ud-signai-ind).. 2 
7..(signaljord).. 7 




Overforsel at program! Her 

Selv om aire slags filer kan overfores 
via RS-232C forbindelsen. koncentre- 
rer vl os terst om een bestemt type, 
nemlig COMAL programfiler. Pro- 
grammet der aoskes overfart, laases 
ind i afsendercomputerens (sen- 
der'ens) arbejdslager, Programme! 
gennemgas, sa alle programUnier. 
sorn man ikke er sikker pa, at modta- 
gercomputerens (modtager'ens) CO- 
MAL kan fortolke, gares til kommen- 
tarssetninger ved at anbringe // farst i li • 
nien efter linienummeret. Derved und- 



gas. at modtagercomputeren melder 
om syntaksfejl under overfarsten. Syn- 
taksfejl kan enten afbryde overferslen 
eller forarsage. at programUnier gar 
tabt. Ved at gere ivivisomme ssetnin- 
ger til kommentarer. sikres en tuld- 
sta3ndig overt erelse. Senere kan m an i 
ro og mag rette den modtagne pro- 
gramfil til ved hjaslp af modtagerdate- 
matens almindelige programredige- 
nngsfaciliteter 

Bemaark i denne forbindelse. at Uni- 
Comal's COMAL 80 pa Commodore 
har redigeringsmuligheder, som pa 
mange mSder er langt bedre end dem, 
der fmdes pa andre COMAL-compute- 
re. Speciel* kan Commodoren's 
CHANGE ordre vaare meget nyttig. 
Foretag derfor de flest mullge tlllernp- 
ninger af programme! pa din 64'er. 

Far overferslen ma RS-232C trans- 
rnissionsbetingelserne defineres. Pa 
RC Partner gares del med et KON- 
FIG-program, som tkonfigurerer* 
kommunikationsporten: altsS giver 
brugeren mulighed for at vaalge de pa- 
rametre, der skal bruges ved komrnu- 
nikationen. Pel C-64 geres det ved 
overfarslens start. Ved denne preve- 
opstilling har vi benyttet: ► 
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transmissiorishastighed 1200baud 
(b1200) 

anial databils 7 

(01 

antal stop bits 1 

(sD 

paritet lige 
(pe)-efor »even« 

Bemaerk, at denne opstilllng nor- 
mall bar vsere det farstprioriterede 
valg af RS-232 parametre pa Partne- 
ren. Det vil nok alligevel vaere klogl at 
bruge Partnerens KONFIG program 
for at kontrollere, at kommunikations- 
porten er indstillet korrekn. 

Programmer fra C64 til Partner 

Anbring COMAL programme! I 
G-64'erens arbejdslager, og ret det til; 

1 ) Skriv : new pa Partner for at siette et 
evt. eksisterende program fra lage- 
ret. 

2) Tast: enter "71 /corn" pa Partner, og 
tryk pa RETURN-tasten. Partneren 
afventer nu, at data indlober fra 
kommunikationsporten. 

3) Indtast telgende pa C-64: 
select output "sp:b12Q0d7s1pe«. 
Tast derpa list. Ved tryk pa 
RETURN-tasten startes udskriv- 
ning af data til C-64'erens serlelle 
port med den transmissionsform, 
som valgtes ved hjselp af select out- 
put sastningen. 

4) Programme! fares nu over fra C-64 
til Partner. Maske kan der forekom- 
me enkelte syntaksfejl. som ma er- 
indres til senere tilpasning af pro- 
gramme! . 

5) Narmark0renblinkerpaC-64,eraf- 
sendelsen slut, og Partneren afven- 
ter nu et slut-signal (EOF-signal). 

6) Skriv igen p& C-64 (man kan bare 
flytte markeren og bruge samme li- 
nie igen): select output "sp:bi200 
d7slpe"- Tast sa print CHR$(26) - 
dette tegn er slutsignalet til Partne- 
ren. Partnerens marker vil begynde 
at blinke som tegn pa, at overfers- 
ien er slut. 

7) Skriv til slut: select output "ds:"p& 
C-64 for igen at vende tllbage til da- 
tasksermen som output-enhed. 

8) Det overfsrte program kan nu ret- 
tes til pa Partneren. 

Programmer fra Partner til C-64: 

COMAL programme!, der skal overfe- 
res. bringes pfi plads I Partnerens ar- 
bejdslager, og evt. kommentarssetnin- 
ger mdfejes for at forhindre meddelel- 
ser om syntaksfejl. 
1) Skriv pa C-64: select input 
"sp:bl200d7slpe". 



2) Skriv pa Partner: list "/I /com". 

3) Nar Partner-markeren blinker, er 
overferslen slut. Tryk STOP-RE- 
STORE pa064foratafbrydefor- 
bindelsen til den serielle port. Pro- 
gramme! ligger nu klar i C-64 'erens 
arbejdslager, bortset fra evt. rettel- 
ser eller asndringer. 

Sekventielle liter 

Det kan ogsa Jade sig gare at overfere 
vilkarlige sekventielle filer fra den ene 
datamaskine til den anden. Der kan 
v«ere tale om filer med teksl, tal, eller 
andet, som man 0nsker adgang til pa" 
den anden datamat. Til dette formal 
skal bver maskine vaare i stand t il at k0- 
re 2 programmer: et senderprogram 
og et modtagerprogram. For at overfe- 
re sekventielle filer fra en sender til en 
modtager, skal man i almindelighed 
felge nedenstaende fremgangsmade. 

1) Sarg for, at forbindelsesiedningen 
er tilsluttet korrekt med RS-232 mo- 
dule! pa plads bag pa din Commo- 
dore. 

2) ^Controller, at RS-232 kommunika- 
tionskortet pa den anden computer 
er indstillet pa den rigtige baudha- 
stighed (f.eks. 1200), antaf data-bits 
(7). antal stop-bits (1) og paritet 
(even). Brug evt . tavere baudhastig- 
heder, hvis overferslen ikke lykkes, 
eller der forekommer fejl under 
transmissionen. Baudhastigheden 
og de evrige parametre skal va?re 
ens for begge datamater. 

3) Sargfor.atdensekventiellefil.som 
du onsker at overfere, er pa plads 
pa disketten i sender'en . Load sen- 
derprogrammet, sa det er klar til at 
kere. 



4) Indldes modtagerprogrammet I 
modtager-datamaten. Ker dette 
program, sa datamaten venter pa 
data. 

5) Kernuseneterprogrammet.Svarpa 
spergsmalet om filnavnet. 

6) Datatransmissionen ber nu ga i 
gang. Bemserk, a! 1200 baud sva- 
rer til ca. 150 tegn i sekundet, sva- 
rende til et par skfflrmlinler hvert 
sekund. Overfwsel af hver kilobyte 
tager saledes omkring 6-7 sekun- 
der. 

7) Transmissionen opharer, nar sen- 
der'en transmitterer et filatslut- 
ningstegn.CHR${26)er End Of File 
tegnet, nar man sender fra C-64 til 
Partneren; og CHR$(127) er EOF, 
nar man sender den anden vej. 
Modtagerprogrammet sarger for, 
at den modtagne fil bliver lagret pa 
diskelte/disk hos modtageren. 

KonkluBlon: 

Der er naturligvis mange andre mulig- 
heder, end dem, som vi har skitseret 
her. F.eks. er de C-64 programmer, 
der vises i denne arttkel, blevet over- 
fed via brugerporten til et parallel kort i 
en Apple II til brug som en tekstfil. Des- 
uden er det. planen, at C-64 COMAL 
programme' skal kunne feres frem og 
lilbage mellem 064 og IBM PC'en, der 
som bekendt nu har en UniComal CO- 
MAL version. Commodore COMAL 
brugere far riermed endnu Here mulig- 
heder for at udvekste programmer og 
filer med andre datamater. Din Com- 
modore 64 kan altsa godt snakke sam- 
men med andre computere! 




RS-232 modulei og forbindelseskabiet 
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Commodore programmer 



C-64 modtagerprogram 



C-64 Senderprogram: 



0010 SAUE 0T1DDTAG l c64 ' 

0020 dim A4 of 1 . Si o f 28000 

0038 MODTflG ' C64 

0040- UIS' INSTRUKT10N 
0050 

0060 proc ffQDTAG , C64 

0070 pago 

0080 print === venter pan data = 

0090 opon f Ho 2. SP: B1200D7S1PE . road 

0100 opan 3. oFLYTTEF I L ' .ur 1 1 o 

0110 uhllo fl*OchriC127D do 

0120 A4: - 3 qI %C2, 1 ) 

0130 B*:+At 

0140 onduhllo 

0150 pnnl *lle 3: Bi C 1 : I op ( Bt )-l ) 

0160 close 

0170 endproc [10DrAG'C64 

0180 

0190 proc UISMNSTRUKTION 

0200 pose 

0210 print 

0220 prlnl 
AR UNDER" 

0230 print 



ETTEN . 

0240 

0250 

0260 

0270 

0280 



DEN OUERFORTE FIL ER NU KL 
NAUNET FLYTTEFIL' PAA DISK 



pr In! 
pr ln1 
pr int 
pr Inl 
pr Inl 



ENTER ""FLYTTEFIL 



0290 print 

0300 print M 4.0: 

0310 endproc UIS* INSTRUKTION 



0010 // COflflODDRE 64: SEND TIL SERIEL PD 
RT 

0020 FRA'64 
0030 

B040 proc FRA'64 
0050 dim At of 20 
0060 page 

0070 print DEN NflUNTE FIL FORES DIREK 
TE" 

0090 print TIL DEN SERIELLE PORT FRA 
DISKETTE 



0090 
0100 
01 10 

a 

0120 
0130 
0140 
0150 
0160 
0170 
0180 



input " INDTAST FILNAUNs A* 

open file 2 . SP: B1200D7S1PE" .ur I \ 

open file 3 .fit .read 
up | t o not oo f C33 do 

At: -sot 4T3.1 J 

print file 2: At 
e n d uh l I e 

print f 1 1 a 2: chriC263 /✓ rC oof 
close 



0190 endproc FRA '64 



Utteratur 

Artiklen bygger pa materialer fra 2. ud- 
gave af COMAL 80 for COMMODORE 
64. Leo Hajsholl-Poulsen og Frank Ba- 
son. Denne vejledning falger medden 
nye COMAL kapsel til C-64. 



Regnecentral Partner programmer 



RC-modtagerprogram: 


RC-sendlerprogram: 


B010 // rC PARTNER; HENT FRA SERIEL PORT 


0010 // Rc PARTNER: SEND TIL SERIEL PORT 


0020 TILRC 


0020 FRARC 


0030 


0030 


0040 proc TILRC 


0040 proc FRARC 


0050 dim At of 20 


0050 dim A* of 20 


0060 print chrt023 


0060 print chr*(12) 


0070 print hUSK. com-PORTEN 5KAL KONF 


0870 Pttnl hUSK, com-PORTEN SKAL KONF 


I GURERES FORST 


I GURERES FORST' 


0088 print dEN NflUNTE FIL FORES DIREK 


0080 print dEN NPiUNTE FIL FORES DIREK 


TE FRA DEN SERIELLE PORT TIL DISKETTE." 


TE FRA DEN SERIELLE PORT TIL DISKETTE. " 


0090 input ' ' t NDTAS T F J LNAUN : : At 


0090 Input INDTAST FILNAUN: : A* 


0100 


0100 


0110 opon flit 2. 1/CDH" .road 


0110 open file 2, /lyCOtl " ,ur Mo 


0120 open Ills 3,At.ur|te 


0120 open file 3, fit. read 


0130 uhllo net eoft23 dfl 


0130 uhl le not eoft33 do 


0140 A*: =sot *t2. 1 3 


0140 At: -- 9 et*(3.1 ) 


0150 print file 3: fit , 


0150 print file 2: At. 


0160 ondunlLe 


0160 onduh I 1 • 


0170 close 


0170 eloso 


0180 print oUERFORSEL SLUT" 


0180 print file S: chr*C1273 // C 64 s 


0190 ondoroc TILRC 


I ut lean 




0190 endproc FRARC 
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INPUT/OUTPUT 

Af Tor Engebakken 




INPUT/OUTPUT er RUNs laser- 
brevkasse, hvor du har mulighed for 
at fa svar pa nogle af de problem er, 
du gar og tumter med. 

Desvaarre kan vi ikke na at besva- 
re alle de breve, vi modtager. Vi 
• pro ve r at fa s a mange med som mu- 
ligt og udvaelger dem, vi mener, der 
har bredest interesse. 

Commodore-interesserede, som 
har sporgsmal eller tips at bidrage 
med, kan skrive til Tor Engebakken, 
Damhauggt. 30, 1750 Haiden, Nor- 

go. 

Klokkeslrengen 
INPUT 

Hej Tor! 

Jeg har to spergsmal til dig angaende 
Commodore 64. 

1. Hvordan kan iegte Commodores 
klokke (TJ$) til at blive printet pa" et og 
samme sted? 

2. Hvordan kan jeg fa Commodore 
64 til at phnte Tl$ kun hvert sekund? 
Hilsen 

Frank Olav Estensen 
A. Hauklandsv. 15 
6015 HUNSTAD. Bod0 

OUTPUT 

Desvserre har COMMODORE-BASIC 
ikke nogen kommando til al prime el 
bestemt sted pa skaermen. VI ma der- 
for ordne dene selv. 10 PRINT 
CHR$f19):TI$:REMCHR$(19) = CUR- 
SOR HOME. 

Denne linie vil printe Tl$ i everste 
venstre hjerne al skeermen. Ulempen 
er, at det nseste du skal have printet 
ud, vi) havne pa linien under. Ved at 
prints et bestemt antal CHR$(1 7), (cur- 
sor ned) kan du fa cursoren ned pa 
sksermen. En almindelig made at gt&re 
dette pa, er at have en streng, som be- 
star af 25 stk. CURSOR DOWN Du 
kan nu fa cursoren nedoverfra HOME- 
posltionen ved at skrive: 
100 PRINT LEFT$(A$,I):REM I = AN- 
TAL LINIER FRAOVEN. 



I evrigt findes der i RUN nr. 1/1984 
en routine, hvor ma n ved at angive X,Y 
koordinater kan fa printet en tekst ud 
hvor som heist pa skasrmen, man en- 
sker. 

Hvls du vil have maskinen til at ud- 
skrive klokken hvert sekund, er dette 
temmelig vanskeligt at beregne I BA- 
SIC. 

En elegant lasning er imidlertid at la- 
ve en rnaskinkoderoutine, som benyt- 
ter sig af INTERRUPT. (60 gange i se- 
kundet bliver maskinen »afbrudt« i det, 
den er I gang med. I NTERRU PT'en star 
til. checker tastaturet og gor andet 
nedvendigt vedligeholdelsesarbejde. 
for at maskinen skal fungere. Ved at 
forandre pointeren til Interuptroutinen 
($03t4-$0315), kan vi indsaatte vorl 
eget program i begyndelsen af denne 
routine). 

Se programlist 1 

Efter at have ksrt dette program , sset- 
ter du routinen i gang ved at skrive 
SYS49152,t.rn,s hvor t = timer, 
m = mmutter og s = sekunder. 

T,m,s kan her vsere et aritmetisk ud- 
tryk med vanabler og det hele. 

En digital klokke vil nu blive udskre- 
vet averst l venstre hjorne at skaar- 
men, uafhsengigt af eventuelle BASIC- 
program. 

Lidt omgrafik 
INPUT 

Hei Tori 

Jeg har iagt masrke til, at du er smad- 
der skrap til CBM-64, og har lyst til at 
sparge om et par ting. 

I Hvordan laverjeg baggrundsfar- 
vepa* en skasrm? 

2. Hvordan laver fegSYS-kodepaet 
program? 

Jeg er sikker pL at du kan kfare at 
svare pa" d/sse spargsmal, derfor siger 
jeg pa forhand tak for gode svar. 
Hilsen 

"Data-Frank« Carsten Murbreck 
N. Griegsgt. 58 A 
2300 Hamar 



Output 

Tak for brevet Carsten. (Og for smige- 
ren!) Baggrundsfarven er let at foran- 
dre. Den kontrolleres af et bestemt 
sted i hukommelsen. Ved at skrive PO- 
KE 53281. tal forandrer du farve. Tal- 
let, du POKE'r ind, m£ vaare mellem 0 
og 1 5, og vil give dig forskellig farve for 
hvert tal. Hvis du POKE'r 53280 med et 
tal, vil du forandre farven pa ramrnen 
rundt om skaarmen. 

Nar der i et program st£r t.eks. SYS 
4096. betyder dette, at du starter et 
maskinkodeprogram, som ligger pa 
denne adresse. Du ma derfor toe at 
prog ram mere I maski nsprog for at bru- 
ge dette. Der findes ftere bager om 
maskinkodeprogrammenng. og RUN 
kerer i evrigt ogsa et lllle kursus om 
samme emne. 



Sprites 
INPUT 

Hei! 

Jeg har en CBM 64 og har fundet mas- 
ser af nyttige tips om , hvordan leg kan 
bruge den. Men der er en ting t jeg ikke 
har fundet ud af. 

Hvordan kan jeg fa fiere end tre 
blokke (13, 14 og 15) til at opbevare 
spritedata? I instruktionsbogen stir 
der, at du kan skrive POKE44,42*64: 
POKE42*64>0:NEW for duindlasser el- 
ler skriverprogramm et. Da kan du bru- 
ge blok 32-41 Men dette far jeg aJdrig 
tilaivirke. 
Hilsen 

Stig Johansen 
H&konsvejen 67 D 
5500 Haugesund 

OUTPUT 

Det er for sa vldt rigtigt, det du har laast 
i manualen. Det som sker, er at du 
haaver start af BASIC far du indlaaser 
programme*. Du far derfor iedig plads 
til data, pa det sted hvor BASIC saad- 
vanligvis starter. Dine POKE'r er imid- 
lertid torkerte. 
Ved at bruge disse POKE'r far du 
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indlaaser programme!, kan du bruge 
blokkene 32-63 til sprites. 
POKE44,64-64/256:POKE44*64,0: 
NEW 

En anden made at afsaatte plads lit 
sprites er at ssenke loppen af BASIC i 
begyndelsen af programmet. Dette vii 
reducere pladsen til selve BASIC-pro- 
grammet, men i de fiesta tilfaslde vil 
der vasre plads nok alllgevel. I pro- 
gramllstning 2 vil A i llnie 1 0 vaere den 
farste blok, som er ledig til sprites. Saat 
Ikke A til et for lav! tal. (128 bar vasre 
det laveste). 
Se programlistning 2 

Sprite/baggrund skollision 
INPUT 

Til RUN 

Jeg har nogle sp&rgsmdl. som /eg ger- 
ne vil have svar pa, men fsrst vil jeg 
takke for et godt blad. Ved brug af spri- 
te kan man undersoge en kollision 
wed baggrunden i adresse 53279. Det 
jeg vil sporge om. er om man ikke pa 
en m^de, kan finde ud af, hvllken ka- 
rakter spriten stoder ind i. 
Venlig hi/sen 
Morten Bekker 
Heibergsvsenge 6 
5700 Svendborg 

OUTPUT 

Nar du har fundet ud at. at en kollision 
er indtruffet, er du, som du sikkert har 
fundet ud at. kun halwejs. Der er des- 
vaarre ikke nogen enkel made at finde 
frem til fwilken karakter, du har kollide- 
ret med. Med lidt planlasgning pa for- 
hand skulle du Imldlertid, kunne finde 
ud af det. 

Nar en sprite kolliderer. har du jo X 
og Y koordinaterne tit denne sprite. Du 
ved derfor en cirka-placering af karak- 
teren. den er kollideret med. (X og Y- 
koo*dinaterneJ<anjovserelidt forskelli- 
ge alt efter om spriten er kollideret fra 
venstre.. hajre. tra oven eller fra ne- 
den !). Hvis du pa forhand VED, at der 
kun er een ting I dene omrade, er sa- 
gen klar. 

En anden ting, som kan vasre til 
hjselp. er at multicolor data 01 ikke 
medfarer, at der bliver registreret no- 
gen kollision. Det bedste er maske at 
lade alt, som ikke skal forarsage en 
kollision vsere 01 i multicolor mode? 

Skjulte tinier 
INPUT 

/ RUN nr. 1- 1985 er der i Commodore 
Corner m metode til ved hjaelp af en 



REM at »slette« tekst eller del, dm stir 
fsrdenne. Metoden erudmserket, men 
efter at have brugt adskilllge dage pa" 
at lave et m/c program og derefter ved 
en fejlragefse praktfsere den fsromtah 
teafdaskningafSYS'en, villejeggerne 
have oplyst en made til at fieme 
REM'en eller finde startadressen af 
programmet. 
Hilsen 

LarsJebjerg 
Sandvejen 32 
Vindinge, 4000 Roskiide 

OUTPUT 

Det som forarsager, at linierne ikke 
kommer frem, er at ascii-tegnet for 
DELETE bliver lagt ind i programmet. 
Hvisdu lister en linie, som er »speerrei« 
pa denne made, vil du kunne se, at llhl- 
en bliver skrevet ud et kort ajeblik, tor 
den bliver tjernet igen. For at fa linien 
frem igen, ma disse tegn derfor for- 
andres. Siden du programmerer i ma- 
skinkode, har du sikkert en maskin- 
kode-monitor Brug denne og under- 
ssg hukommelsen fra start af BASIC 
($0800). Der vil du finde en raakke tal 
$14. Forandrer du disse tal til noget 
mere Isesbart (f.eks $41) vil linien igen 
kunne listes. Fra BASIC kan du PEEK'e 
indholdet ud fra adresserne 2048 og 
opefter. Hvis adressen indeholder tal- 
let 20 C$14). forandrer du dette til f.eks. 
65. 

Frys en llnie 
INPUT 

Hei Tor! 

Kan man fryse den sverste linie pa 
sk&rmen (eller flere pa" en gang), sa- 
dan at nar man SHIFT/CLR HOME'er 
stadig har linien pa sk&rmen? 
Med venlig hilsen 
S0ren Petersen 
Kebenhavn 

OUTPUT 

Hvis du vil have noget staende pa et 
sted, kan vt benytte os af interrupten til 
at udskrive dette 60 gange i sekundet. 
Programmet (listning 3) gar dette. 

Mixning af grafiske modes 
INPUT 

Hej RUN! 

Jeg er en ivrig 64 'er entusiast, der /a?n- 
ge har haft nogle sporgsmH. 

1, Hvordan kan man have tekst pa 
skwrmen samtidig med at maskinen 
stir i high-res? 

2. Erdetmufigtatinddelesk&rmeni 



blokke med eller uden high-res? 

3. Q>dela?gger resetstik compute- 
ren? 

Mange hilsener 
Ernst J0rgensen 
Godthabsgade 
5000 Odense 

OUTPUT 

Som du sikkert har lagt maerke til, har 
din 64'er muligheder for at mikse lor- 
skellige grafiske modes. »Hemmelig- 
heden« ligger i noget som kaldes ra- 
ster-interrupt. 60 gange i sekundet ra- 
ser rasteret nedover skEermen og op- 
daterer denne. Vi kan nu programme- 
re processoren til at give en interrupt 
(afbrydelse). n£r rasteret n5r en be- 
stemt vaerdi (f.eks. midt p&skeermen). 

Enklet forklaret kan vi sige, at com- 
puteren har mulighed for at opfange. 
HVOR pa skeBrmen rasteret forajebllk- 
ket befinder sig. 

Det farste vi gar, er at ENABLE ra- 
sterinterrupt . Dette gflres ved at sestte 
bit 0 i INTERRUPT ENABLE registeret 
(53274/SD01A). Derefter skrivervital- 
let S7f ind i SDCOD Dette vil bevirke, 
at alle interrupt fra nu af vil vaare 
RASTER-INTERRUPT. Nu mi vi for- 
taalle maskinen, HVOR vi onsker, at in- 
terrupten skal ske. 

Raster-registeret befinder sig i 
53265 (SD011) og 53266 ($D012). I 
D0 1 1 er det kun averste bit, som tilha- 
rer raster-registeret. Registeret har to 
f unktioner. Nar det lasses . far vi raster- 
positionen som svar. Det.somimidler- 
tid er mest interessant, er at nar du 
skriveri det, bliver vaardien gemttilse- 
nere brug af operativsystemet. Denne 
vasrdi vil blive sammenlignet med den 
reelle rastervserdi, og forarsage en in- 
terrupt, nar disse er lige store. 

Nar vi far en Interrupt, ma vi farst 
checke, hvor rasteret belinder sig. Alt 
efter hvor pa skEermen vi er, forandrer 
vi grafikmode. skaarmfarve eller hvad 
vi matte anske. 

For at rydde op efter os. ma vi skrive 
lallet 1 tilbage i Interrupt-registeret for 
at ENABLE interrupt igen. 

Det sldste, vi ma huske pa, er at 
hoppe t i I den ssedvan I ige inter rupt-rou • 
tine i SEA31. hveranden gang vi er i 
routinen. 

Programmet (listning 4) saetter en 
hejoplasningsskaarm pa de fsrst 19 ti- 
nier og saadvanilig tekst-mode pa re- 
sten af skaarmen. 

Et reset -stik kan Ikke skade compu- 
teren, hvis det er monteret rigtigt, men 
du bar vaare temmelig sikker pa hvad 
du gar, tar du lodder det pa! 
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Programllsttilng 1 



100 A = 49152: 1=0: J =0 

110 READB: IFB=-1 THEN 130 
120 POKE A+J ,B: 1=1+1: J=J+B: GOTCiiB 
130 IF J031617 THEN PRINT FEIL I DATA': 
END 

140 SYS43152.23.59.57:END 

160 DATA76.33, 192 .0 ,B .0 .18 . 18 , 16 ,18 ,48 .4 
6 .1B .18,16.32 

l 70 DATA253 . 1 71 , 32 , 1 38 . 1 73 » 32 , 217 . 1 83 , 20 
1 .0.208,2,152,96.76.72 

190 PATfU78.32, 15 ,192,281 ,21 .176.216 ,141 
.3.192.32.15.192.201 .60 

190 DATA176.236. 111 .4 . 132 .32 , 15 , 192 ,201 . 
60.176.226.111 .5. 192 ,32 

200 DATA76.192 . 32 , 1 10 . 1 92 , 32 , 1 16 . 192 ,32. 
169.192,96.162.2,160,8 

210 DATA189,3. 192 ,201 . 10 . 1*1 .7 ,56 .233,10 
.200,76,83,192,133,251 

220 DATA152, 10.10 . 10 .10.5.251 . 157.3, 192. 



282, 16,225.96 . 160 .0 

230 DATA 1 62,0 . 185 .3 . 132 .72 , 74 . 74 .71.74 .2 
4 .105,19,157,6 .192 

218 DATA232, 101,11 ,15.24.105,18,157,6.19 
2 , 232 . 232 . 280 .192.3. 208 

258 DATA225. 96 .162.0 .189.6. 132 .9. 128 .15? 
.0,1 .169.14.157.0 

260 DflTR2l6.232.221 .9.209.238.96,60.0.16 
9 ,60 , 141 ,167. 192 . 141 ,168 

270 PATA192 . 120. 1 69,190.111 ,20 .3 . 169 , 192 
,111 ,21 ,3,80.96.206.168 

280 DATA192. 173. 168. 192 .240, 6, 32, 146, 192 
. 76 .49 .231 . 1 73 . 167 . 192 . 111 

298 DATA! 68. 192. 219. 173.5. 192, 21. 105 .1 ,2 
01 ,96 .248.6. 11 1 .5 .192 

300 DATA76 ,19,193,169,8,141 ,5,192,173,1, 
192,21.105.1 .201 .96 

310 PfVTO240, 6,111 ,4.192.76.19,133.163.0, 
111 .1.192.173.3.192 

328 OATA21. 105.1 .201 ,36,240.6. 141 .3.132, 

76.18.193,169.0.141 

330 OATA3 , 1 32 , 2 16 .32 , 1 1 B . 1 92 , 76 . 1 38 , 1 92 
310 CATA-1 



Programlistning 2 140 data 001.240 

150 DATA 127.192, 
160 DATA 192.007 

10 fl = l92:POKE2 ,A:B^x64y256tPOKE52.0; :CL 170 DATA 000.000 

R 180 DATA 000.000 

20 A=PEEK(2):F0RI =0TO1:B=CA+1 )*64 ^ 000.000 

30 FDf?J=BT062:REflDC:POKEB+J.C:NEXTJ,I 260 REH SPRITE2 

10 POKE53269.3:POKE53287.1:PDKE53288,0:R 210 DATA 000.000 

En ENABLE SPRI TEl fc2: SETT FAROE 220 DATA 000.000 

50 POKE53248.108:POKE53250,110:POKE53219 230 DATA 000.000 

. 100:POKE5325t .100 240 DATA 004.000 

60 POKE2011 .A-M:POKE2010 ( ft 250 DATA 000.128 

100 REM SPRITE1 260 DATA 192,007 

110 DATA 000.000.000.080.000.000.000 270 DATA 015,255 

120 DATA 000.000.000.000.080.B00.000 280 DATA 255,192 

130 ppTA 000,080.003.192,800.031.000 290 DATA 192,081 



001 , 

255, 
255, 
000, 
000, 

000, 

000, 
600. 

000 , 
032 

001 . 
060 
210 
000 
000 



007.255.062,020 
255,252.815.155 
062,001 .240,001 
000,000.000,000 
000,000.000,000 
080,000,000,000 



000.000 
000 .000 
000,024 
002,000 
000.128 
224.015 
007,195 
129,000 
832,004 



.000 .000 
.000.000 
,000,024 
.064,001 
.003,255 
.255.210 
.Z21 .003 
.803,000 
.000,032 



Programlistning 3 



10 A= 49152: 1=0 

11 READB: IFB-- I rHENSY513l5Z; END 

12 POKEA+I ,B: I -1*1: GOTO 11 

13 REn *xx*xx»rxxxxx M/K-OATA x xxxxxxaxxw 
11 DATA 120 . 159, 13. 111. 20. 3. 169, 19 
2, HI. 21. 3. 8B. 96. 162. 0. 189 



15 DATA36. 192. 11. 63. 157. 0, 4. 159, 

1. 157. 0. 216. 232. 224. 40. 208 

16 DATA236. 76. 43. 234. 68. 69, 78. 78. 
69, 32, 76. 73. 78. 74. 63. 70 

17 DATA32. 70. 74. 69. 82. 78. 69, 83, 3 

2, 73, 75. 75, 69. 32, 77. 69 

18 DATA68. 32, 67. 76. 82. 47. 72. 79, 7 
7, 69. 33. 32, -1 



Programlistning 4 

10 POKE52,32tP0KE56.32:CLR 

100 A= 43152= I =0; J=0:BA=0132 

110 READB: IFB=-1 THEN298 

128 POKEA+I .B: I = I + 1 ; J =J+B: GOTO 110 

130 REM 

140 DATA120. 169. 127, 141. 13. 220. 163 
. 159, 111, 20. 3, 169. 192, 141. 21. 3 
150 DAT A I 63. 123. 141, 26. 208. 88, 163, 

0. 133. 251. 169. 32. 133, 252. 160, 0 
160 DATA152. 1 62 , 32, 145. 251, 200. 208 
.251. 230. 252. 202. 208. 216. 169. 147 
. 32 

178 DATA210. 255. 160. 8, 162, 20, 24. 3 
2. 240. 255. 162, 0. 189. 107. 192, 32 
180 DATA210. 255. 232. 224. 52. 208, 245 
. 163. 0. 133. 251. 169. 4, 133. 252. 16 

2 

190 DATA19. 169. 8. 160. 0. 145. 251. 20 
0, 192. 40. 708. 219. 165, 251, 24. 105 
200 DATA40. 133. 2S1 . 144. 2. 230. 252, 
202. 208. 231. 96, 68, 69. 78. 32. 48 
210 DATA86. 69. 82. 83, 84. 69, 32. 68. 
69. 76. 69. 78. 32. 65. 86, 32 



220 PATA83, 75. 74. 63. 82. ?? . 63. 70. 

32, 63. 82, 32. 70. 65. 65, 32 

230 DATA73 , 32. 32, 72, 73. 45, 82, 63, 

83, 32. 77. 79. 68. 69, 46, 169 

240 DATA1, 141. 25. 208. 173, 18. 208. 2 

«»0. 24. 173. 17, 208. 41. 223, 141. 17 

250 DATA20B. 173. 24. 288. 41. 217. Hi, 

24. 208. 169. 0. 141. 18. 208. 76. 214 
260 DATA132. 173. 17, 208. 3. 32, 141. 1 
7, 208, 173, 24. 288, 3, 8. 141. 24 
270 DATA208. 163, 202, 141, 18. 208, 173 
. 17. 208. 41, 127. 141. 17. 208. 173, 1 
3 

280 DATA220. H. I, 240. 3. 76, 49. 234. 

76. 188. 254. -1 
285 REF1 

230 IFJ<>27935THENPR1NT'FEIL I DATASETNI 

NGER . SJEKK DATA!': END 

310 SYS49152:9A=B192 

320 FORX=0TO319STEP.5 

330 Y=INTC90>50*SINCX/10)3 

310 CH = INTCX^8 ): RO-INTCY/8 3: LN=YAND7 

350 BY=BfHRO*320+gatCH+LN 

360 BI =7-(XAND73 

370 PDKEBY.PEEKCBY)0R[2tBI 1 

380 NEXTX 
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CBM-64 INPUT 



Af Bjame V. Jensen 



Nar man i et Basic-program ensker at 
hente information fra tastaturet. kan 
det gares pa Here forskehige mader. 
Den mest almindelige metode er at 
bruge kommandoen INPUT. Denne 
kommando har bl.a. den tordel , at bru- 
geren kan se, hvad der indtastes, og 
evt. rette fejl i indtastningen inden der 
trykkes pa return. INPUT-kommando- 
en har imidlertid en del ulemper, der 
begreenser dens anvendelsesmulig- 
heder. F.eks. harbrugeren fuld kontro! 
over cursoren, og kan (ved et uheld) 
komme til at skrive hvor som heist pa 
skaarmen, eller oven i kobet siette 
skaarmen. Selv alle farvetasterne kan 
stadig anvendes, sa computeren plud- 
selig skriver med en anden farve I re- 
sten at programmet. Hvis et program 
skal vaare brugervenligt, bcr det vaere 
sikret mod alle disse (og andre) former 
for fejlindtastning. 

GET-kommandoen er langt den bed- 
ste at anvende, narderonskes et input 
fra tastaturet. For det ferste gengives 
det indtastede ikke pa skaarmen, og 
skaerm-billedet risikerer derfor heller 
ikke at blive edelagt ved en fejlindtast- 
ning. For det andet hentes kun en ka- 
rakter ad gangen. sa man i sit program 
har mullghed for at teste river enkelt 
karakter for fejl. (eller uansket vaardi) 
inden man lader computeren lonsaM- 
te programkerseten. Man ma sa selv 
serge for at printe det indtastede pa 
skaarmen. hvis brugeren skal kunne 
falge med under Indtastningen. 

TastaturbuHeren 

Alt hvad der hentes ind i computeren 
med kommandoeme: INPUT eller GET 
hentes Ikke direkte fra tastataturet, 
men fra et tastatur-lager (keyboard- 
bufferen). Dette lager ligger fra adres- 
se 631 til adresse 640 i computeren. 
Nar der indtastes noget fra tastaturet, 
sa gemmes det i dette omrade. indtil 
computeren »far tid« til at hente det. 
Hvis man I sit program har en raakke 
kommandoer, der tager lang lid at ud- 
fare (sortering. pauseslejfer eller be- 
regninger), sa kan man indtaste op til 




10tegn. mens man venter. Hvis com- 
puteren nu nar frem til INPUT-kom- 
mando, sa vil all hvad der blev indta- 
stet i »pausen« komme til syne pa 
skaarmen. Hvis en utatmodig bruger 
f .eks. hartrykket pa return under »pau- 
sen«, sa vil computeren passere IN- 
PUT-kommandoen. uden at brugeren 
far lejlighed til at indtaste noget. En 
metode til at undgS dette er at t0mme 
lastatur-lageret for »ar1ald« umiddel- 
bart inden INPUT-kommarvdoen. Det 
geres med kommandoen POKE 198,0. 
Adresse 198 benyttes af computeren 
til at holde styr pa, hvor mange uafhen- 
tede tegn der ligger I tastaturlagerel. 

GET-kommandoen 

Na> computeren steder pa en GET- 
kommando, hentes der eet tegn fra 
tastatur-lageret, og programkarselen 
fortssetter med det samme. Hvis der 
ikke er indtaste! noget, fortssetter 
computeren medbringende »ingen- 
tingw. Det nytter derfor ikke noget at 
tfflnme tastatur-lageret umiddelbart 
tor en GET-kommando. Hvis man 
f.eks. ansker. at computeren skal 
standse op og vente pa en Indtastnmg 
(ligesom ved INPUT), kan det geres pa 
denne made: 

50 GET A$:IFA$=""THEN 50 



Computeren vil nu fortsastte. sa snart 
der sndtastes noget, uanset om det er 
brugbart eller ej. Det er sa op til pro- 
grammeren at undersage , om det ind- 
tastede er brugbart, og hvis ikke, sa at 
vende tilbage til llnie 50 efter e1 nyt "in- 
put". I lims-dO kan man tiamme tasta- 
lur-lageret med POKE 1 9&.0 (ikke i I Inie 
50). 

Hvis man f.eks. Brisker, at compute- 
ren skal vente indtil der trykkes pa en- 
ten J eller N, kan det gares sadan: 

50 GET A$:IF A$= " J"AND 
A$= "N" 
THEN 50 

Hvis man kun ensker, at computeren 
skal reagere pa tasterne 1 . 2. 3, 4, 5og 
derefter hoppe hen til en bestemt linie. 
afheangcg af hvilken af de fern taster 
der nedtrykkes, kan det f.eks. geres 
sadan: 

40 POKE 198.0 

50GETA$:N = VAL(A$) 

60 ON N GOTO 100,200,300,400, 

500 
70 GOTO 50 

Den tredje metode 

Der findes en helt tredie made at hente 
information fra tastaturet pa. Man kan 
hente tallet i adresse 197 frem med 
kommandoen A = PEEK(197), og ved ► 
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Tipsprogram 
del 3 



Af Jergen Jergensen 



Fserdlggareisen al RUN's store tips- 
program korer pa lave omdrejninger i 
ojeblikket. Dette skyldes, at Dansk 
Tipstjeneste er I gang med at planlasg- 
ge kuponer, der kan udskrives pa en 
printer. Det siger sig selv, at RUN's 
tipsprogram skal rumme denne facili- 
ty. 

Jeg har fiere gange prove! at tipse 
mange raakker sammen med andre, 
men etter kor! tid l'0ber det ud i sandet, 
lordi ingen har tid til (eller glder) udfyl- 
de e! starre anta( kuponer. Sadan er 
der mange, der har det, og det bliver 
spaandende at se det endetige udspil 
fraTipstjenesten. 

side 36 behandler vi i et saarskilt 
program problemet omkring tegnfor- 




delingssystemer, men ogsa dette 
program venter pa de nye kuponer 

Reducerede systemer 

Medens vi venter, kan vi benytte tiden 
til at lasgge endnu en facilitet ind i vo- 
res tipsprogram. Nfirdel 3erindtastet 
kan vi indtaste et reduceret system og 
gemme det i en til. 

Nar vi skal lave kuponen, behaver vi 
blot at indlaese systemet og anfere de 
»sikren tegn og evE. haivgarderinger. 
Sa klarer computeren resten. 

Vi kan i ferste omgang kun arbejde 
med reducerede systemer, der ude- 



lukkende indeholder enkeltraakker - 
del andet er mere kompliceret og kom- 
mer senere. 

Selve programdeien er selvforkla- 
rende og behave r tkke yderligere kom- 
mentarer. Er du i tvivl om reducerede 
systemer og hvordan de fungerer, kan 
jeg henvtse til Tipsbladet, Idet det er 
deres systemopbygninger, der er 
brugt som model. • 



► at undersage laltet A. kan man f inde ud 
af, hvilken tast der er nedtrykket llge 
nu. Hvis der ikke trykkes pa noget. vil 
tallet R vsare 64. Det er hverken ASCII 
eller POKE-veerdier, sa man ma selv 
imde talfene for de enkelte taster, 
f .eks. med dette Nile program: 

10 PRINT CHR$(147),PEEK(197) 
GOTO 10 

Nar tastaturet aflasses p& denne ma- 
de, sa tcsmmes tastatur-lageret Ikke, 
tvsertimod, det fyides op, og hvis der 
sa. senere I programmet, kommer en 
INPUT-kommando, eller hvis pro- 
gramme! slutter eller atbrydes. saduk- 
ker det Indtastede pludsellg frem pa 
skaarmen. Man bar derfor altid tamme 
EastatuHageret med kommandoen: 
POKE 198,0 efter at have aflsest tasta- 



turet pa denne (lidt specielle) made. 
Metoden er Isser anvendelig til spll, da 
det kan lade sig gere. at undersage i 
hvor lang tid en bestemt last holdes 
nede. I adresse 654 kan man hente in- 
formation om tasterne CTRL. SHIFT 
og LOGO-tasten. 

Tastatur-lageret kan ogsa bruges til 
noget specielt. nemlig til at »snyde« 
computeren til at tro at en kommando 
er blevet tastet ind fra tastaturet. 
F.eks. har kommandoen LOAD den 
egenskab. at hvis den bruges i en pro- 
gramlinie, sa indstilles QASlC-pointer- 
ne ikke, sa de passer til det load'ede 
program. Hvis kommandoen derimod 
indtastes fra tastaturet, sa indstilles 
pointeme korrekt. Hvis man nu gerne 
vil have eel program til at load'e et an- 
det program, og derefter siarte del op, 
kan det f.eks. geres pa denne made: 



480 PRINT CHR$p47)"LOAD"'CHR$ 

<34)"TESr , CHRS(34) 1 8 
490 POKE631,19:POKE632,13:POKE 

633,S2;POKE634 ,85;POKE 

635 ( 78:POKE636 ( 13 
500 POKE 198,6:END 

I lime 480 slettes skearmen, og der 
skrives LOAD "TEST" ,8 1 sverste ven- 
stre hjarne. I lime 490 fyides tasiatur- 
lageret med falgende tegn; 

HOME-RETURN -R-U-N- 
19 13 82 85 78 

RETURN 
13 

I linie 500 anglves antallet af tegn i 
tastatur-lageret, hvorefter program- 
met afsluttes. Programmet TEST vil nu 
blive load'et fra disk og staret uden 
problemer med BASIC-pointerne. 
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Kryds og tvsars 



nun «R>D5OR0 



Af Jorgen Jorg6nS6n 



Fra den lidt mere serlase afdeling af 
programbunken har jeg valgt at bringe 
dette kryds og Ivsers program. 

Programme! gar ud pa al konstrue- 
re en krydsordsopgave. Du kan vaelge 
op til 1 9 ord, som du ligeledes skal def i- 
nere. Er ordet f.eks. "computem kan 
definationen vasre »datamat«. Efter 
«krible-kryds« princippet begynder 
computeren nu at flette de 19 ord 
bedst muligt sammen. Du kan pa 
skasrmen folge med i, hvordan den for- 
seger sig frem. Ordene kan naturligvis 
kombineres pa utallige mader, og er 
du Ikke lilfreds med farste forseg, 
prever computeren geme igen. 

HAi du er tilfreds med resultatet, 
kan du fa skrevet den faerdige kryds- 
ordsopgave ud pa printeren sammen 
rned lasmngen. 

I det her vlste program kan du des- 
vaarre kun benytte de engetske bog- 
staver og er saledes afskaret fra at be- 
nytte ord. der indeholder bogstaverne 
as, 0 og a. 

I ovrigt er programmet selvforkla- 
rende pS dansk. 
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Laeseropgave 

Det kunne vaare morsomt at se. hvem 
af Iseserne, der far konstrueret den 
Dedste krydsord. Det gselder naturlig- 
vis om at f3 ordene flettet bedst muligt 
sammen. og ordene skulle ogs^gerne 
have relation til computerverdenen. 

Send dit forslag ind til RUN senest 
15. Juli, sa praesenterer vi den bedsie 
Icsning i neeste nummer. VI prsemierer 
med 10 disketter eller 24 band efter 
egel onske. Lad os here fra dig og 
mEerk kuverten »krydsord«. 
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DEN NYE COMMODORE 




DEN IBM KOMPATIBLE PC 10 
SENSATIONSPRIS; 19.950 KR. 
EXCL MOMS. 

PC 20 med 10 MB Harddlsk kr 30.950 

Den nye Commodore PC er en fantaslisk krartio 16-BIT 
computer Den kan bruge alt software, der er 
udarbejdet efter den verdenskendte MS/D0S- 
standard. Hvilket betyder, at der til Commodore PC er 
et meget bredt udvalg af savel branchespecifikke - 
som neulrafa software rnuiigheder 

• INTEL 8088 16-BIT processor. 

• Hovedlager-kapacitet 256 KB RAM, kan intern! 
udvides til 640 KB. Extern udvidelse til 1 MB er 
muligt. 

• Doobelt floppy-disk 2x360 KB (som eksira udstyr 
Integreret 10 MB hard disk). 

• Monochrome monitor med haj oplusningsgrad 
(gran). 

• Dansk testator. 

VII De lave den nye Commodore PC at kende - sfidan rent 
profess ionelt, sa ring til Datacare pa" tit. (01)705858. 
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Commodore 



- fordi tremtiden forlwngst 
er begyndt. 



Hjaelpeprogrammer 



At Robin Sagar 

Det er en kendsgerning, at ingen com- 
puter er perfekt, og ogsa en kendsger- 
ning at 64'eren er langt fra perfekt. 
Neesten alle fagblade her til lands og i 
udlandet , har kritiseret 64'eren pa den 
ene eller anden made. Meget spalte- 
plads i bladene og I de fleste bager bru- 
ges til et afsnit med »brugbare subruti- 
ner« til erstatning for de ting, som blev 
glemt, daman lavede 64'eren. Den an- 
den ling der er sket er, at forskellige 
hjaslpeprogrammer nu kan kobes. Det 
rnest kendte af disseer, formodentiig, 
SIMONS BASIC fra COMMODORE. 
Imidlertid har tidligere numre af RUN 
daskket dette meget grundigt, og der- 
lorvil denne artlkel ikke bruge piads pa 
at beskrive dette endnu engang, men 
preesentere nogle af de andre hjeelpe- 
prog rammer, man kan ksbe. 

Hjselpeprogrammerne daakker 
ssedvanligvis omrader som udvidet 
basic, Drug af gratik, SID-chips, sprites 
og hjaalp til disketteoperationer. Nogte 
pakker indeholder ogsa programmer, 
der kan rette programnwens fejl og 
maskmkode assemblers/disassem- 
blers. Udover at ingenting er g ratis, og 
bortset fra anskaffelsesprisen pa pak- 
ker, bruger de mest nyttige hjs&lpe- 
programmer omkring 8 K af det tilgasn- 
gelige lager. Desuden kan man risike- 
re, efter at have skrevet el program 
med hjaslp fra hjaalpeprogrammet, at 
h|a3lpeprogrammet skal vaare 1 maski- 
nen far ens eget program kan bruges. 



HURTIGLOADING CARTRIDGE 

Dette er strengt taget ikke noget hjsel- 
peprogram. Hovedformalet med »hur- 
tig loadings programmer*', er at frem- 
skynde loadingen pa 1541, der er be- 
rygtet for sin langsomme loading. Ved 
at bruge »hurtlg loading« kan program- 
met loades op til 5 gange s3 hurllgt. 
Cartrldgen besidder ogsa to andre 
funktioner. Den forste af disse er 
Maskin-kode monitor SMON. Den kan 
bruges til at skrlve og forbedre pro- 
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grammer i maskinkode, men krasver at 
brugeren har et forudgaende kend- 
skab ti I dette. Den anden del af Cartrid- 
gen er DISKTOOL For at arbejde med 




dette bruges tegnet 0. Dette giver ad- 
gang til en menu, fra hvtlken alle funk- 
tioner kan bruges. Heri er tnkluderet 
tre kopiprogrammer, hurtig diskette- 
formattering og en diskette -editor, der 
giver brugeren mulighed for at betrag- 
te og forandre sserskilte bytes i en ud- 
valgt afdeltng. 



DISKETTE BONUSPAKKE 

Denne diskette fra COMMODORE har 
et udvalg af programmer og subruti- 
ner, indenoldende hjcelpeprograrn- 
mer, grafik og lyd, plus korte program- 
mer, derettektivt viser 64'erens spille- 
rum. og fra hvilket relatiyt nye brugere 
kan fa gode ideer til egne programmer. 
Hjasipeprogramafsnittet har to kopi- 
programmer og DQS-hj33lp, der ogsa 
er pa den diskette, der folger med n3r 
man kaber en 1541 'er. Der er ogsa en 
PET-emulator. der kan konvertere 
PET-programmer til 64'eren, (uheldig- 
vis kan jeg ikke huske at have set et 
PET-program, som jeg kunne taanke 
mig at kore pa 64'eren). og maskinko- 
de assembleren SUPERMOON . 



Grafik-afsnittet indeholder en farve- 
test og en karaktereditor samt en hej- 
oploselighedsloader og en meget an- 
vendeiig spriteeditor. Lyddelen har 
kun en demostration af et orgel og en 
samling lydeffekter. De sidste to afsnit 
er simple spilrutiner og »undervis- 
ningsn-programmer, bl.a. »SHOOPY 
MATH« til at tare sma barn matematik. 
Jeg anser ikke denne diskette for at 
vaare speciel god, da de samme em- 
ner kan fas fra den gratis testdisk og 
COMMODORES SUPER EXPANDER 
cartridge, med undtagelse af de korte 
(og neesten vasrdilese) programmer. 




TOOL 64 & THE TOOL 

Disse to programpaKker fra forskellige 
firmaer er faktisk samme produkt. 
TOOL 64 fra HANDIC er en cartridge, 
og der medfelger en instruktionsbog 
pa 31 sider. THE TOOL fra AUDIOGE- 
NIC kan fas pa disk, med en mstruk- 
tionsbog i A5-storrelse i et ringbind. 
Dlsketten med AUDIOGENICS TOOL- 
prograrn har eksempler pa de lorskelll - 
ge muli gheder . man kan bruge den til , 
hvilket cartrldge-versionen desvserre 
ikke har. THE TOOL har 5 hovedomra- 
der. Disse er skaBrmhandtering, hejop- 
loselighedsgrafik, programmerings- 
hjaalp, ekstra basic og DOS-hjaalp. 



Screen-management afdelingen 
indeholder 17 mstruklioner, der dsek- 
ker 3 omrader. Del ferste er »ekstra« 
display instruktioner. Kommandoerne 
er tline og tcol, der bruges til at tegne 
vandrette og lodrette tinier. Samrnen 
kan dette bruges til at tegne kasser pa 
sksBrmen, elter time kan bruges til un* 
derstregning af data eller titter. 



TOOL 
64 
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En al de basickommandoer, der 
blev glemt da man lavede 64'eren. var 
PRINT AT. Man kan selvfolgelig altid 
programmere den til dette pa. en elter 
anden mAde, men en enkelt komman- 
do er jo altid nemmere, som OUT-kom- 
mandoen i TOOL-pak kerne. Andre dis- 
play-kommandoer er rev. som kan fa 
etomradeaf skaarmentilatskittetilen 
anden farve. dette kan bruges, nar 
man laver »vmduer«: scrol I som »f!ylter 
rundt med vinduet« og clear, der bru- 
ges til at rydde en del af skcBrmen. Det 
nseste afsnit bruges p3 dataerhvervel- 
se. Ideen eral bruge de kommandoer, 
som pakken har, i stedet for de sasd- 
vanlige INPUT og GET kommandoer. 
For at bruge de nye kommandoer. er 
en del al skasrmen udpeget til at vaare 
en Input-zone. Alle andre kommando- 
er skal foregainden for denne zone. En 
anvendelig kommando fra denne a f de- 
ling er CARGET-kommandoen. Denne 
Stopper programmet indtil en lorudbe- 
stemt karakter, eller serie af sadanne, 
indlaases. 

Ved at bruge GRAPH IC-kommando- 
en vil skaarmen laves om t il en hajoplei- 
seligheds skserm, 320 x 200. Pakken 
indeholder nogle kommandoer til ma- 
nipulering af denne sksBrm. MOVE flyt- 
ter curseren til en hvilken som heist 
stilling pa skaarmen. DRAW vil tegne 
en ret linie fra curseren til et punkt. der 
erbestemt med DRAW-kommandoen. 



PLOT tegner eller sletter et punkt pa et 
angivet sted. DISPLAY bruges til at 
skrive bogstaver, og TEXT laver igen 
skaarmen om til normal lavopleselig* 
hed, 40x25. 

Da jeg fik TOOL-pakken, var det af- 
snittet om progr ammeringshjeBlp, som 
jeg fandt mest brugban. Det ferste, 
AUTO, er et program der nummererer 
linierne, sa brugeren kan spare tid pa 
dette, nar man laver programmer. 
Springene i linienumre kan sasttestil et 
tal imetiem 1 og 255. DELETE sletter 
en linie eller et helt afsnit af linier fra et 
program, mens RENU renummererer 
og tilpasser evt. nye spring i linienum- 
re. I modsastning til SIMONS BASIC vil 
linienumrene der indgar i GOTO, GO- 
SUB osv. ogsa blive renummereret. 

Den anden afdeling af programme- 
ringshjaelpen bruges til at finde fejl i et 
fserdigt program. Den ferste komman- 
do er DUMP, som lister programmets 
variabler og deres vasrdi nar de bru- 
ges. DUMPkan bruges pa ethvert tids- 
punkt (f.eks. nar der sker el program- 
Stop) bfide i programmer eller ved di- 
rekte Drug. ERROR vil vise i hvilken li- 
nie programme! formoder at fejlen er. 
Veer dog opmeerksom pa, at fejlen kan 
forekomme tidligere i programme!. 
Fl ND skriver alle de linier hvor en be- 
stemt streng af karakter forekommer, 
og TRACE muligger at studere pro- 
grammets funktion. 

TOOL-pakken tnkluderer en hard- 
copyinstruktion. der gor det muligt at 
skrive sksermbilledet ud pa en printer. 
Der er ogsa. kommandoer der letter 
brugen af joystick og de meget nyttige 
IF, THEN, ELSE-kommandoer. 

DOS-hjselpedelen af pakken forenk- 
ler disk-operationer til en 1-bogstavs- 
forkortelse efterfulgt af §. 



SUPER HELP 

Dette er igen et cartridge-hjaalpepro- 
gram, dergiver brugeren yderltgere 22 
basic-kommanidoer. Den har ogsa en 
disassembler med 13 kommandoer til 
programmering, checkntng, listning 
og efterprevning af rnaskinkode pro- 
grammer. Der er ogsa DOS-hjaalp, pS 
samme mide som den, der er pa 
TOOL-programmet, og en 2-vejs-as- 
sembler til at sknve og »overscBttefl 
maskinkodeprogrammer. 

Blandt de ekstra basic-komman- 
doer man kan fa i SUPER HELPerder, 
ligesom I TOOL-pakkerne, DELETE, 
renumber, FIND og HELP. Men der er 
ogsa nogle spaendende, nye komman- 
doer. APPEND kan bruges til at isegge 



et nyt program (f ra disk eller band) ind i 
maskinen. sa det kan arbejde med et 
program, der allerede er i maskinen. 
TRACE er ikke prsecis det samme som 
i TOOL-pakken. men det er en made at 
kore et program pa. linie for linie, Efter 
at hver linie er vist. stopper program- 
met et ajeblik. fer det viser naaste linie. 
SINGLE STEP giver brugeren mulig- 
hed for, selv at kaide linierne frem. RE- 
NEW-kommandoen kan anvendes til 
at »fedde« et program, der ved en fejl- 
tagelseerbievet stettet fra hukommel- 
sen, med NEW-kommandoen. COM- 
PACTOR saetter farten op pa lange 
basic-programmer. Denne komman- 
do fjerner al unadvendig plads og alle 
REM-oemarkninger Desuden er lini- 
erne sat samrnen , s5 de opnar en mak- 
simal taathed. En enkel advarsel: Hvis 
denne kommando skal bruges. sa un- 
dersog forst om programmet er uden 
fejl, underseg ogsa om der eruforstfie- 
tige angivelser, ved at bruge de kom- 
mandoer, der er angivet i SUPER 
HELP. Efter at have ordnet dette. og 
renummereret programmet, kan man 
opnfi den maksimale hastighed. 

STACK 



SUPER HELP 

A Programmers U llllty Cartridge 

COMMODORE 64 

ZO Additional Basic Command* 

DbnwrabW and Mont lor 
Disk Operating System Support 
2 Pa» Assembler 




pqxilar computer accessories 



SUPER EXPANDER 

El andel cartridge-baserei »ekstra« in- 
struktionsmodul, denne gang fra 
COMMODORE. SUPER EXPANDER 
blev markedstort samtidig med PLUS 
4 og C1 6. Nar man kigger pa tldspunk- 
tet for dets. opdukken og cartridgens 
indhold, er de! naarliggende at antage, 
at COMMODORE prover pa, at rette 
op pi de mangier, der er pS den origi- 
nate basic til 64'eren. SUPER EXPAN- 
DER er en pakke, de r er I avet , sa arbej- 
del med grafik og 1yd bliver lettere pa 
64'eren. I modssetning til andre hjaal- 
peprogrammer indeholder det ikke 
programmeringshjaalp. eller hjaelp til 
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maskinkode programmer. Det ( som 
SUPER EXPANDER tilbyder. er in- 
slruktioner til tekst og graflk, en sprite 
designer og tignende sprite oevsegei- 
seslnstruktioner, hvordan man pro- 
grammerer joysticks og furtktionsta- 
sterne, og instrukltoner relateret til 
brugen af lydogSID-chip'en. I tekst 09 
grafik mode, gar cartridgen det muligt 
at opna" adgang til 4 forskeliige grafik 
modes. Der er standard lavoplosning. 
4-farvet middeloplasning, en hajles- 
ning og et »vinduesopdelings« mode, 
med tekst og hejoploselighed. I rnan- 
getarvet mode, indeholder module! 
ogsa en CHAR-kommando. der kan 
placere en streng af karaktereret hvil- 
ket som heist sted pa sksermen, og 
hvis det anskes fremhaeves teksten 
med »reverse video«. Modulet har og- 
saandreinstruktionertil at saveog ba- 
de former/figurer og en SCNCLR kom- 
mando til sletnirig af skasrmen. 

Naeste afsnit er til sprites. Der er in- 
kluderet en glimrende sprite-designer 
og man kan lave op til 8 sprites til et- 
hvert tidspunkt. Ved at bruge 4 funk- 
tionstaster, kan spriten udvldes, vises 
som normal eller mangefarvet, Efterat 
have prasciseret spritebilledet kan 



kommandoerne SPRCOL, SPRSAV og 
SPRITE saves til brug i et basicpro- 
gram. 

For at kunne bruge sprites i basic 
spilrutiner. indebaerer det sasdvanlig- 
vis en masse PEEKs og POKEs. Det er 
ofte i forbmdelse med sprites, at man- 
ge spil gar ned. Men med SUPER EX- 
PANDER er kontrollen med sprites 
gjort lettere. For at beveege en sprite 
bruges kommandoen MOVSPR, med 
det nummer spriten har, og det sted 
den skal flytte sig til. MOVSPR kan og- 
sa bruges til kontrol af den fan. som 
spriten bevaager sig med. For at kon- 
trollere, hvad der sker under et sprite- 
sammensted med enten en anden 
sprite eller med baggrunden, bruges 
kommandoen COLINT.og for at under- 
soge hvilke sprites der er stedt sam- 
men, bruges kommandoen RBUMP. 
Blandt de programmer RUN har faet 
forelagt, har der vseret nogle med SU- 
PER EXPANDER, nogle af dem har 
vaeret meget professionelle. El af de 
mest fremtraadende og svasrest til- 
gsengelige emner pa 64'eren er SID- 
chip'en. Det er SID, der serger for 
64'erens lyd. Ugesom med sprites 
kraaves der en del peeking og pokeing, 



for at bruge SID. SUPER EXPANDER 
ordner dette med en serie af komman- 
doer, der automatisk saetter de kraave- 
de parametre i reekkefoige, sa SID fun- 
gerer. TEMPO angiver farten. TUNE 
praeciserer bolgeformen, og ENVELO- 
PES og FILTER bruges til at skabe re- 
sonans. Efter at have ordnet parame- 
tret, kan musik nemt spilles i den tone- 
art man ansker. 

Det er en skam, at instruktionerne i 
SUPER EXPANDER modulet Ikke er 
indbygget i 64'eren. Men nu kan det jo 
kobes til en rimelig pris. Jeg vif anbefa- 
ie alle. at k0be et , ligegyldigt om de ha r 
den ene eller anden hjselpepakke. 

KONKLUSION 

Ingenting i denne verden er gratis. Del 
sarnme ger sig gseldende med hjselpe- 
programmer. Efter at have betalt for 
pakken og loadet det, kommer en an- 
den ulempe. De optager ca. 8 K RAM . 
De fleste af dem har ogs£ Vffiret sa 
konsekvente, at de bruger det interne 
lagers positioner fra $ 8000 til S9FFF. 
Dette tab af hukommeise er dog ogsa 
det eneste minus. De er brugbare, og 
til stor hjaelp, hvilket gear brugen af 
64'eren til en stsrre glaade end ellers. 



Til Commodore 64 




XTXXXtXXXXXXXXXXXXXX 

2 REPt * * 

3 REfl * CROSSWORD PUZZLE * 

4 REM x x 

5 REfl kx*xxx***xx;i:*x*x*xicx 

6 POKE53288 . i :P0KE53281 , 1: P0KE53272.21 

31 REfl OETTE PROGRAM ER SKRCUET 

32 RP1 PflA FORPiNLEONING fiF 

33 REfl ONTARIO MINISTRY OF EDUCATION 
31 REfl OG BEflRBEJDET FOR 

35 REH RUN COHnODORE (IfiGflS IN 

36 REfl COI1PUTFRU10RLD - DflNflARK 
101 REP1 MAIN LINE 

105 REM GOTOI30 

J 10 GOSUB 10000 T I ri_E 

J20 GOSUB 3000 INSTRUCTIONS 

130 GOSUB 1000 INPUT DATA 

133 REM GOSUB4010 

140 GOSUB 9800 SET UP 

200 ! 

210 GOSUB 11000 CROSSWORD BOUNDRY 
220 GOSUB 2500 POKE FIRST WORD 
230 GOSUB 3000 MAKE CROSSWORD 
235 PRINT rGR23CHOMK39SPC3 

239 IF NT-O0 tWFN PRINT "t HOM ][ 9SPC] " :NF 
: ORD PASSEDE IKKE 

240 POKE 214.2 : PRINT T COH flSPC JPRESS 
r REUlPt OFF J FOR UDSKRIUNING 

250 POKE 214.25 : PRINT T COK 6SPC3TAST 
FREUlflt OFF] FOR EN NY K'OMB tNATIONC HOni" 
255 GET Ri ; GET fli : GET A4 



260 GET P.* : IF Pi- GOTO 260 

270 IF A4="A GOTO 200 

280 IF AtO'P GOTO 260 

400 I 

•110 OPEN 1.1 : OPEN 2.^.5 I OPEN 6.4.6 

120 FOR io-n ro 1 

425 PRINT*6 .CHRif 18 } 

•330 POKE 211.25 : PRINT TCQJ :BL*; I HOH 

V 

435 IF 10-0 THEN PRINT ' T HOfllt 16SPCJS U 
A RC 15SPC] 

437 IF 10=1 THEN PRINT t HOTI It 16SFC 3KRTD 
SORQC I1SPC3 

410 PRINT TfiSPClINDSTIL PAPIR OG TRYK t 

REUJRETURNI OFF) - ' 

450 GET G4 : GET G4 ; GET G4 

460 GET G4 : IF G4 0CHR4C13J GOTO 460 

500 : 

510 PRINT T H0P17 : BLi 
■520 PRINI I 7SPC lUDSKRIFTr 24SPC] " 
530 GOSUB 13000 PRINT CROSSWORD GRID 
"531 PPINTnl?.CIlR4f.2B ) 
535 GOSUB5000 

540 IF 10=0 t MEN POKE 214.25 : PRINT 
OJt 10SPC ]SUAR AFSLUTTETT 1 3SPC ][ HOHJ ' 
550 NEXT 10 

560 POKE 211.25 : PRINT r COK 1 1SPC3KRYD 
SORD AFSLUTTE TC 5SPC 3t HOfl] " 
9B0 CLOSE I : CLOSE 2 : CLOSE 6 
990 CLOSES: FND 

1000 : 

1001 REM INPUT UOROS AND DEFINITIONS 

1002 DIM U*r?53. DSC250 
1005 1=0 

1010 PRINT I CLR] " : 

1015 PRINT 'OUFRSKRIFTr 2SPC3C C/*8H 3CU1 "; 
: GOSUB6080 : n.4=B* 
1017 PRINT "[ CLR3 " : 
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1030 1=1+1 

1035 IF I<1THFNI=1 

1040 PRINT : PRINT ORDC 2SPC3NR .."J I " C t/ 

BJT3CU] : : GOSUP 6000 ! U*tl 3 = B* 

1045 IF Bi-FC/S] THEN 1=1-1 : GOTO 103 

5 

1050 IF Fl- = 1 THEN N=I-1 : FL=0 : RETURN 

1055 FDR Jtl TO LEN(W4(I33 

1056 if miJ*ru*cn.j.iK a- or piid«cw*c i 

>.4„U>'2" T HEN Ffl=l ! J=LENCUHI)3 

1057 NEXT J 

1058 IF FA = l THEN FA=0 : GOSUB 1150 : 60 
TO 1040 REDO WORD 

1060 PRINT : PRINT DEFINITION NR. "M 

1065 PRINT T5SPC3CC/BJI3CU3": 

1070 GDSLIB 6000 : IF Bi = "TCv8] THEN 1=1- 

1 : GOTO1035 

1080 Dit I J-B* 

1090 IF LENCD4C I ) J >74 THENPRINT T CN 3THE D 
EFINITION ER FOR LANG I 1=1-2 

1100 IF I<28 THEN 1030 

1110 RETURN 

1150 PRINT : PRINT ' KUN ENGELSK ALFPBET I 

1160 RETURN 

2580 : 

2501 REH POKE FIRST UORD 

2510 FOR K=B TO N i UR(KJ=0 t NEXT 

2520 DC 1 J=1 : OC2 3=40 

2525 K=INTCfN-t J»RNUf 0)1+2 

2530 Wi:U*(l) : WlC13=U4tK3 i u!4(K 3=W4 

2535 Di=D*tl3 ! Di(l3=I3iCK3 : DiCK 3=D4 

2540 T = I : W4-UMCT3 : LW=LENCW4 3 

2550 K = INTf 2«RNDt0 3 3i-l : DRtT )=DC K 3 

2560 X = INTr.l8xRNDC8 3 3+9 : IF K=l FIND X+L 

iJ>30 GOTO 2560 

2570 Y=INT(i0«RNDC0))+6 : IF K=2 AND YtL 

U>19 GOTO 2570 

2580 l.C. = 1024»40xY+X 

2590 GOSUB 7000 POKE WORD 

2599 RETURN 

2900 : 

2801 REM PROMPT TO ENTER DITTO 

2810 POKE 214. Z5 : PRINT f CO] ' : BL4; T HO 

1J ;BL* 

7820 PRINT I 6SPC] INDSTIL PflPIR OG TRYK 

[ REUlRFTURNf OFF J 

2830 GET G4 : GET G4 : GET G4 

2840 GET G* ; tF G*OCHR*tl33 GDTO2840 

2850 RETURN 

3000 : 

3001 REJ1 HAKE CROSSUORD 
3010 T-'T-fl . J^0 

3020 FOR C = l TO N : IF DRCCJOB THEN U=U 

+ 1 : GCUl-rC : NEXT C 

3030 FOR 1=1 TO U : S = I + INT CUXRNOC 1 3 3 : GG 
-GU3 :G(I)-G(S3 :G(S3=GG :NEXT I 

3100 : 

3110 Ut=Ui(T) : lU=LEN(U4) t NF=NF+1 

3130 FRINT THOrUt 7SPC3 :W4; rilSPC]" 

3170 FOR C = ITO U i E = G(C 3 : C*=W4(E) 

3190 FOR L=l TO LU : 214= rtlDiCLJ-i.L 

.n 

3210 FOR Z = l TO LENCCi) : 224 = I1IDUC4.2 
.1 3 

3220 IF Zlt O 224 THEN 3370 

3240 IF DRCE1-48 THEN DRCT 3 = 1 

3250 IF ORfFl-l THEN ORCT3-40 

3280 LC = L0CE3 *DR(E 3«Z -0RCT3* L 

3281 IF LC<1151 THEN 3370 

3282 IF I.C »'LU*DR( T J> 1 996 THEN 3370 

3284 WT=PEEKCLCJ 

3285 IF UT<27THCN3360 

3286 IF PECKCLCttLU-M 3*DR(T 3 )<27 THEN 336 
0 

3290 POKELC ,102 

3301 : 

3385 0-0 

3318 FOR UM TO LU 



3315 Q0=LCi-UxDRCT 3 : WI=PEEK CQ03 I POKE 
00.102 ; POKEQ0 ,U\ 

3317 IF DRCT 3=40 THEN 3322 

3318 IF PtEKCQ8t40 3O3Z PNU Fd*rQ0r40-AD 
3=DRCT 3 THEN 3345 

3319 IF PEEKCQ0~403<>32 AND FQ*fQ0-4B-AD 
1-DRCT3 THEN 3345 

3328 GOTO 3324 

3322 IF PFEKCO0 +1 3032 AND FOxfQB + 1-AD 
l"DR(T3 THEN 3345 

3323 IF PECK(Q0 -13032 AND FQ*CQ0 -I -AD 
3=DRl T 3 THEN 3345 

3324 FOR Y = l TO U : IF ORCY3=OR(T3 THEN 
3327 

3325 IF O0=LOCY3THEN 0=1 :V=U : G0T03327 

3326 IF Q0-LOCY3+DRCV 3XCLENCU1CY31+1 3 TH 
EN 0=1 : Y=U 

3327 NEXT Y 

3328 IF 0=1 GOTO 3345 

3340 IF UI032 AND UIO ASCf MIDtfUi.U.l 
U-64 THEN 3345 

3344 GOTO 3350 

3345 U--L.U ■ 0=1 
3350 NEXT U 

3355 IF £3-0 THEN GOSUB 2008 ! NF=0 : Z=L 

EN(Ctl : L=LU 1 C=U 

3368 PUKE LC.UT 

3370 NfcXI 7 .1 X 

3410 IF NF 0 GOTO 3490 

3420 II N-ll-NT GOTO 3499 

3430 UI* = UifllM3 : Dl=DtCU+l 3 

3440 FOR i: IK? TO N : UiEC-1 3=U4CC 3 I D4 

TC-i 3-UK.C 1 : NEXT C 

3475 W4(N)=W* : D4CN J=D* 

3480 GOTO 3100 

3490 IF T<N GOTO 3000 

3439 RETURN 

1000 J 

4010 0PEN6.-4.6 : PRINT"6 ,CHR*C 18 3l RETURN 
4500 Q4f SC 3 -QIC SC 3+LEFT* (L4 . 1 3+CHR4C254) 

* :SC=SEtl 

4530 FOR 1 =1 T0LENCU4C SC- 1 3 3: Ci t SC 3=Q4 ( SC 3 

* - NEXT I 
4540 RETURN 
5080 : 

5001 REN PRINT STUDENTS' COPY 
5030 PRINT" | .CHR*(19 3 

5040 PRINT"!. SPCC34>:CHRiCl 3: UANDRET" 

^0G0 PRINT"! . SPCC34);CHR*C1 ): r 7CVUJ" 

5070 PRINT"! : PRINT* 1 

5030 FOR 1=1 TO A 

5B90 PRINT* I .Nflf I D; :OAt( I 3 

5100 PRINTHl 

5110 NEXT I 

S116 PRINTpI : PRINT-1 : PRINT^l 
5120 PRINT" l .SPCC36 3; CHRtCl 3; LODBET" 
S130 PRINT"! .SPCC36 3: CHR1C1 3; T eC/UJ" 
5140 PRINI«1 : PRINT" 1 
5150 FOR 1=1 TO D 
5160 PRINT"! .NDC 13; :D04(J3 
51 70 PRINT" I 
5180 NEXT 1 
5200 RETURN 

6000 : 

6001 REfl INPUT DATA 
6010 INPUT 134 
6020 IF Bi^ E THEN FL=1 
6030 RETURN 

7000 : 

7001 REM POKING THE UORp 

7010 FOR 1^1 TO LU : POKE LC+I*DRCT3 . ft 

sc rniDt tui.i .i j i-64 

7020 Fn=LCt2*f!RCr)-1024 : FQxCFQ 3=DR C T 3 

7030 NEXTI 

7040 CF=LC»DRCT3 : CL =LC+LU»DRCT 3 

7050 C0= 40XINTCCF/40 3 : CF=CF~C0 

7060 Cl= 40XINTTCL/40 3 I CL=CL-Cl :C1=C1 
*40 

7070 IF C8<U8 THEN UB=C0 
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7080 IF C0>LB THEN LB=C0 
7090 IF CI CUB THEN UB=C1 
7100 IF C1M-B THEN LB=Ct 
7150 LOCT)*LC 
7160 RETURN 
8300 : 

8001 REM SE1 UP 

9020 DIM I.CfN ) .ORCN5 .LOCNJ^GCN ),FOX( 1000 
).fi*f 19^.Dfl*fN J.DDiCN] 
9025 DIM TBtNl. Ditto. NACNl.NnrN) 
8030 QZ- RNU r RND f-TIt3)1 : REH SEED RA 
NFJOfl GENERATOR 
8040 nD-1021 
0050 BLt- I 39SPC] " 
8100 : 

8110 FDR J^0TO3 

8420 FOR 1=1 TO 6 : READ A : Aid )=A*U J 
♦CHRlfA] : NEXT I 
8438 NCXT J 
8440 RESTORE 

8450 FOR J -10 TO 19 : FOR [=1T0 4 : REAP 

A : A4I J 1=A4( mCHR*f Al : NEXT I 
8460 READ DO,Kl< : RED READ UNUSED PflTA 
INTO DUMMY UARIABLES 

8470 A*f J )-CHR*C I 24 )-t-CHR*fB J J I NEX 

T J 

8190 UB=LC ! LB^LC^DRCT )"CLENCW*3tl 3 
8190 RETURN 

8500 DA r A Sfi, 68. 68,56,0,0 
8510 DATA 124,0.0,0.0,0 
85Z0 DATA 36,76,84,36,0.0 
8530 DATA 0 .69 .81 , 104 .0 .0 
8510 DATA 21. 40. 1 24. 8. 0.0 
8550 DATA 1 16 . 84 . 84 . 72 .0 .0 
8560 DATA "36 ,84 .84 .72 .8 .0 
8570 DATA 64.76.80.96.0,0 
8580 DATA 10.84.84.10.0,0 
8590 DATA 36.84,84.56.0.0 
9000 : 

3001 REM INSTRUCTIONS 

90I0 INrUT f CLRJ0NSKER DU UEJLEDNING CV 
NK2SPC3TCVB1I 3CUV : IP* 
9020 IF LCFTif IPi.l )<>" J" THEN 9310 
3025 PRINT ILLR1 TAB CI 1 J 7 REU1K R Y O S 
0 R D 

9030 PRINT r CNlPROGRAflflET GIUER MULIGHED 

FOR AT LAUE 
9040 PR INT * I CN JEN KRYDS0RDS0P6AUE . * 
9060 PRINT : PRINT J PR INT ' NAAR DU K0RER 

programme!, oil cortpureREN" 

9070 PRINT BEDE DIG OH AT JNOTASTE L 0SN I 
NGSORDET OG : 

9080 PRINT TCN]DEN TILSUARENOE DEFINITIO 
N. AFSLUT ALTIQ' 

9090 FR IN T DEN LlNIE. DU SKRIUER PAA . U£ 
D AT TRYKKE" 

9100 PRINT PAP. <RETURN> TASTEN . ' 
3110 GOSUB 9500 

3120 PRINT ICLR3DER ER RED I GER I NGSFAC I L I 
TE7ER, OER 

9130 PRINT LETTER BRUGEN AF PROGRAMMED 

9149 PRINT:PRINT: PRINT f S/UH 45/»][ S/I ] " 

915B PRINT I Sx-]|NST[S/-Jt5SPC]BRUG DENN 

E TAST FOR AT*. 

9155 PRINT f S^-H 4SPC3T %/~V 

9160 PRINT IS/-JDEL T S/- ][ 5SPC]RETTE FEJ 

LV* 

9170 PRINT rS/JK4S/x][ S/KJ ' 

9180 PR INT : PRINT : PRINT FOR AT RETTE FORE 

GAAENDE LINIF . THST " 

9190 PRINT ''RETURN) F0R EN NY INDTASTNIN 
B, 

9200 FR 1 NT : PR I NT : PRINT NAAR DU HAR AFSLU 
TTET I INDTASTN1NGEN 

9210 PRINT AF NAUNE OG DEF INI T I ONER TAST 

SAA [ REU1ET OFF] OG 
9220 PRINT <RETURN>- 
9230 GOSUB9500 



9240 PRINT 7 CLRJNAAR DU I NO TASTER ET DRD 
. MAA DU KUN 

9250 PRINT 7 CN1BRUGE ENGELSKE BOGSTAUER. 

OEFINI riONFN 
9260 PRINT ICN1KAN INDEHOLDE ALLE TEGN P 

aa TflSTmuRrr. 

9270 PRINT 7 CNJDCF1NI T IDNERNE MAA H0JST 
UDG0RE TO LI.-" 

9280 PRINT r CH INI ER (88 TEGN). 

9285 PRINT TCNlPROGRfWET KAN H0JST ARBE 
JDE MED 19 DRD 

9286 PRINT T CNIOG DERES DEF INI T IONER . 
9290 PRINT f 3CNJTAST RETURN FOR START... 

9300 GET GE4:IF GE* OCHR4C 1 3 1THEN9300 
9310 RETURN 

9500 PRINT: PRINT: PRINT TflST <RETURN> FOR 

PORTSETTELSE 
9510 GETGE*Mr Gf 4 < >CHR4( 1 3 i THEN95 1 0 
9520 RETURN 
18008 : 

10001 REM T I TLE 
10010 PRINT I CLR] " : 

10020 POKE2I4 . 12 : PRINTTABt 12 1; T CO 1 : 
10030 TT*- KR r*DSORDSOPGAUER 
10010 FOR I'll QLENC TT* 5 
1 0050 PRINT I ( : 
10060 FORK-1TO50 ! NEXT 
10070 PRINT I CU1 :rtID*(TTi,l ,1 ); 
18080 NEXT I 
10085 PRINT 
10090 POKE214 . 18 
10095 FCRNM TO 1 08: NEXT 
10100 RETURN 
11000 PRINT fPLRJ :FOR[ =55296T056235:PDK 
EI ,0:NEXT 

11020 PRINT TBLKHREUH3CNU6CH]": 
11030 FORI -I ro 26 : PRINT TCvU ': : NEXT 

:PRINT TC./FK CUKCN] : 
11040 FOR I-1T018 : PRINT T CA1[ CUJt CN)*" 

: :NEXT :PRINT T CAUt 2CUH OFF] : 

1 1050 FOR 1= i TO 25 : PR INT 7 CI H 2CU 3 " ! 
: NEXT: PRINT T REUH C/C K OFF ]t CUK CO] " I 
11060 FOR l^lTOia :PRINT TC/KHCUHCOJ"; 

:NEXT:PRINT f REUH C/DU OFF ] 
1 1070 RETURN 
1 1090 END 

13000 : 

13001 REM PRINT CROSSWORD GRID 

13020 PRINT" 1 .SPCf40-INTfLEN(TLil/2));CH 
R4( 1 )i TLi 

13030 PRINT" 1 : PRINTH 
13040 A:0 : 0=0 : CW=0 : EE=0 
13100 : 

13110 FOR R = 4 TO 22 

13120 FOR 1-1 TO SC :Qi(IJ= : NEXT 
13130 P4= : R* - : SC=1 : E =0 
13140 PRINT T HQUHCNH 15CHJ :R-3 
1 3200 : 

13210 FOR C^7 TO 32 

13220 XX=AD*40xRi-C : X=PEEK(XX] 

i3230 [F X>26 GOTO 13700 NOT A LETTER 

13300 : 

13310 P*-=P*+ TS/i-]t2S/xl : FS=0 : E=l 
13320 FOR 1-1 TO N 

13330 IF LOT I HDRCIJOXX GOTO 13370 
13340 I F DRU3M THEN A=A"M : NAtA3=CW+ 
SC : DAiCA]-U4TI D : 

13350 IF DRt. I 1=40 THEN 0=0+1 : NDCD)=CW + 
SC : DDiCD 1"D4f I 3 
13360 FS=1 
13370 NEXT I 
13400 : 

13410 IF F£^0 THEN 04tSC ]*Q4(SC]+- CS/-U 
2SPC] ' GOTO 13500 

13420 QKSC J--01TSO+ TS/-3 ♦CHR4C254 ]+" 
13430 ^CrSC+1 : TfltSC )=3*CC-6 ] 
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1 3580 


: 










3038 


161 


31 88 


58 


3110 


213 


13510 


IF IO^l 


THEN Rl=Rlf r5/-jl2SPCr : 


3130 


133 


3170 


208 


3190 


93 


goto 


1 3 980 










3210 


158 


3228 


98 


3240 


212 


13520 


Rl^Rl-t fS/-J 


*CHR4fX+64 3 


GOTO I 


3250 


242 


3280 


1 72 


328 1 


185 


3900 












3282 


139 


3284 


255 


3285 


229 


13700 












3286 


92 


3290 


5 


3301 


58 


13710 


Y=PCEKCXX-l 3 " 


2=PEEK(XX-10 3 : U-p 


3385 


49 


3318 


97 


3315 


218 


EEKCXX-11 3 










331? 


173 


3318 


I 16 


3319 


118 


13720 


IF 2<27 THEN P1-P1+ T Sx+Jt 2S/x] " : 


3320 


117 


3322 


78 


3323 


80 


GOTO 


13800 










3321 


30 


3325 


136 


3326 


241 


13730 


IF U>26 


mO Y>26 THEN PI -pt-t- t 3SPC 


3327 


751 


3328 


1 17 


3348 


158 


1 : GOTO 13803 








3311 


1 16 


3345 


B? 


3350 


218 


13710 


pi-pi* rs/t]r7SPC] 






3355 


7 


3360 


29 


3378 


227 


13B00 












3110 


186 


3420 


225 


3430 


166 


13810 


IF Y<27 THE"N Q4[SC )-Ql(SC )»"f S/"-H 


3440 


126 


3475 


226 


3480 


109 


2SPC] 


: R1-R1+ fS/- 


K2SPC3 r GOTO 1 330 


3430 


140 


3499 


142 


4000 


58 


0 












4010 


81 


4508 


88 


4538 


148 


13820 


OlfSC l-QtfSDt f 3SPC 


: Rl=R4t (3 


4540 


112 


5000 


58 


5001 


120 














5030 


I5l 


5040 


98 


5060 


86 


13900 


next r 










5070 


12 


5080 


24 2 


5090 


59 


13910 










5180 


201 


51 10 


235 


51 16 


79 


13915 


if Fttr 


•0 GOTO 13960 






5128 


250 


5138 


128 


5140 


12 


13920 


EE ^ I : "RINTol . PI 






5150 


245 


5160 


65 


5170 


201 


13930 


GOSUB 11000 PRINT Qi 






5180 


235 


5200 


142 


6008 


58 


13910 


PR IN I " l 


Rl 








6001 


185 


6018 


11 


6020 


163 


13950 












5030 


142 


7080 


58 


7001 


212 


1 3955 


IF E+EE 


^1 THEN R=22 






7010 


46 


7028 


47 


7030 


203 


13960 


NEXT R 










7048 


45 


7058 


81 


7060 


103 


13390 


RETURN 










7070 


11 


7088 


247 


7090 


13 


1 4000 












7100 


249 


2L58 


129 


7160 


142 


14010 


IF SC = l 


GOTO 


4060 






8080 


58 


8001 


96 


8020 


222 


14020 


FOH l = I 


TO SC 


-l 






8025 


210 


8038 


240 


8040 


254 


I4030 


PR IN I u? 


. fl»C Cult- I ] 






8050 


136 


8408 


58 


8410 


178 


11010 


PRINTM 


, TpBc TBI n 3: air i ); curie hi 


8420 


221 


84 38 


236 


3440 


140 


i; 












8450 


129 


8460 


93 


8170 


93 


14050 


NEXT I 










3480 


109 


3490 


142 


8580 


145 


14860 


PRiNTM 


. 1ABCTBCSC 3);G1CSC) 


8510 


6 


8528 


138 


8530 


126 


14070 


RETURN 










8540 
8570 


120 
141 


3550 
3590 


184 
127 


8560 
8590 


139 
133 


REflDV 












9080 
9020 
9010 


58 

132 

86 


9001 
9P25 
9068 


180 
102 
217 


9010 
9030 
9070 


244 
252 
171 


KQNTROLSUfl FOR KRYD50RD 






9080 


218 


9090 


60 


9100 


70 














91 10 


123 


9120 


168 


9130 


131 


1 


23 


2 


99 


3 


51 


9110 


33 


5150 


71 


3155 


23 


4 


99 


5 


23 


6 


138 


91 60 


31 


9178 


114 


9180 


13 


3! 


181 


32 


95 


33 


251 


SL90 


42 


9200 


148 


9218 


39 


31 


20 


35 


41 


36 


115 


9220 


101 


9238 


91 


9240 


195 


10] 


28 


105 


L21 


110 


64 


9250 


104 


9760 


81 


9270 


229 


120 


95 


138 


211 


135 


711 


9280 


113 


9285 


1 


9286 


223 


HQ 


102 


200 


58 


210 


215 


9290 


231 


9300 


09 


9310 


142 


220 


91 


230 


195 


235 


136 


9508 


4 


9510 


60 


9520 


142 


239 


I 02 


218 


208 


250 


217 


10088 


59 


1000 1 


49 


10010 


171 


255 


182 


260 


? 


270 


162 


10020 


74 


10030 


155 


10040 


81 


280 


105 


400 


58 


410 


173 


10050 


190 


10060 


180 


10070 


169 


4 20 


49 


-»2S 


123 


130 


101 


10080 


235 


10085 


153 


10090 


195 


435 


152 


437 


5>9 


118 


52 


10095 


163 


10100 


142 


1 1800 


18 


450 


120 


460 


255 


500 


58 


1 1820 


187 


1 1030 


22B 


11840 


147 


510 


25 3 


528 


73 


530 


149 


11050 


34 


1 1060 


34 


1 1070 


142 


531 


124 


535 


32 


510 


0 


11090 


128 


13000 


59 


13001 


104 


558 


58 


560 


'4 


980 


205 


13020 


13 


13030 


12 


13040 


159 


S90 


176 


1 000 


58 


100 1 


61 


13100 


58 


131 10 


33 


13120 


130 


1002 


69 


1 005 


43 


1810 


171 


13130 


228 


13140 


63 


13200 


58 


1015 


32 


1017 


171 


1830 


31 


13210 


22 


13220 


39 


13230 


188 


1035 


L?I 


1010 


80 


1815 


3 85 


I 3388 


58 


13310 


122 


13320 


255 


1050 


31 


1 055 


213 


1856 


21 


13330 


149 


13340 


190 


13350 


137 


105.7 


236 


1 058 


210 


I068 


107 


13360 


124 


13370 


235 


13400 


58 


1065 


?s 


1 070 


102 


1080 


26 


13110 


158 


13428 


iee 


13430 


182 


1090 


247 


I 100 


180 


1 1 10 


142 


13580 


59 


13510 


214 


13520 


215 


1150 


87 


UG0 


142 


2500 


58 


13780 


59 


13710 


8? 


13720 


10 


2581 


226 


25 1 0 


1 38 


2520 


8 


13730 


IB-* 


13710 


163 


13800 


59 


2525 




2530 


40 


2535 


182 


13810 


191 


I 3828 


30 


13900 


58 


2510 


92 


2550 


95 


2560 


213 


13910 


229 


I 39 15 


210 


13920 


112 


2570 


213 


2580 


29 


2590 


150 


13930 


240 


13940 


139 


13350 


2 


2599 


142 


2800 


58 


288 1 


158 


13955 


86 


13960 


244 


13990 


142 


2810 


85 


2820 


52 


7830 


120 


14080 


58 


14010 


232 


1 1020 


35 


2840 


19 


2850 


142 


3800 


58 


14830 


89 


14810 


127 


11050 


235 


3R01 


17*3 


30I8 


230 


3820 


181 


14860 


245 


1 4070 


142 
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HVEM GI'R DIG FREM1 




ft TIDENS SOFTWARE? 




Commodore! 

Billedet viser bare et lille udpluk a! 
programmer lil Commodore 64, ver 
dens mest populsre hjemme- 
computer. 

Commodore erfaktisk del 
computerfirma i verden, der har 
udviklet (lest programmer over* 
hovedet. ca. 2.000 ialt- forelobig! 

irealiteleii (indes der et 
program lil enhver opgave, du kan 
tanke dig - plus en hel del andre. 
Og def kommer stadig nye til - der 
slat Commodore pa (remtidens 
software. 



Commodore 

Fbrdi fremtiden forleengst 
Brbegyndt 



Tegnfordeling 



6 



-3 



4 6 



-4 



-4 



2? 



8«2«3 



Af Flemming Lerbaek 



Systemtipning er med rette meget 
populsert. Og hvem vit ikke geme 
kunne bruge sin computer i jagten 
pa millionerne? Her kommer nu et 
program, hvor computeren virkellg 
kommer til sit ret. 

Systemtippeme er ligesom sa 
mange andre delt i tilhaengere al 
denne eller hin tipsmetode. Ofte 
horer man om matematlske garde- 
ringer elter reducerede systemer. 
Begge dele har sine fordele og sine 
svome tllhaangere. Og da vl allere- 
de et andet sted i bladet er godt i 
gang med et tipsprogram som set- 
ter system i disse systemtipseres 
gat pa de 13 rigtige, vil Jeg ikke be- 
skaeftlge mig mere med disse for- 
mer lor systemer. 



Straks jeg fik min computer - og det er 
etterhanden nogle ar siden - btev jeg 
interesseret i, hvad jeg kunne bruge 
den til. Og tipning var en af de indlysen- 
de ling. Men hvordan kommer logik- 
ken til sin ret i den sammenhseng. Jeg 
vurderede, at det var bedst at udelade 
de mere chance-betonede systemer 
og ga til de strengt logiske. Som nu 
tegn-fordelingssystemer. eller T-sy* 
sterner. 

Ved hjselp af en ren slavebunden 
fordeling af tegnene, kan man gardere 
sig md for alle ubehageligheder. For- 
udsaetningerne er gode nerver og en 
velspaekket tegnebog, samt et indga- 
ende studium af alle de tegnforde- 
lings-sast, der har vseret, siden vi fik 
indfert 13 kampe pa tipskuponen i 
Danmark. 

T-systemet 

T-systemet bygger pa, at man vuroe- 
rer hvilke tegnfordelinger, som man 
anser for sandsynlige. F.eks. 6 1 -taller. 
3 krydser og 4 2-taller, ogsa kaldet 



»6.3,4«. Denne kombination kommer 
of le ud og har ogsa givet psene praam l- 
er. Det man far garanti for med syste- 
met er. at ligegyldigt, hvilke af de 13 
kampe der bliver et, to eller kryds, vil 
man fa 13 rigtige, »nSr blot« tegnkom- 
blnationen er 6.3,4. 

Men laag maerke - lasg ovenikabet 
godt m aarke - til anfarselstegnene om- 
kring «»nar blot«. For selv om denne 
kombination af tegn kommer ud, ska! 
du i gang med kuglepennen I god lid far 
onsdag kl. 1 7.30, hvor kuponerne skal 
vaare af leveret. Der er nernlig hele 
60060 raskker i systemet, hvisdu bare 
skal vaere sikker pa en raekke med 1 3 
rigtige- 

Og husk I Duvinder kun, hvis tegn- 
komblnationen skulle blive seks hjem- 
mesejre, tre uafgjorteog fire udesejre. 

Til gengasid skal man jo regne med 
at lipse 1 .594.323 raakker, hvis man vil 
vasre sikker p£ 13 rigtige ved enhver 
tegnfordeling. 

Sats.ntngen er altsa War nok. Man 
kan i teorien vinde pa 1 systemet, hvis 
man satser tllstraakkeligt, for felgende 
er vaard at overveje: 

Kombinationen 6,3,4 skal blot kom- 
me ud to gange hvert ar, for at dette sy- 
stem er bedre end at tipse de godt 
halvanden million rsekker. Og denne 
kombination kommer ud 4-8 gange om 
aret. Lad derfor under al leomstaandig- 
heder vaare med al satse de halvan- 
den million raakker! I 

Men det er vel de faarreste, som har 
de 45.045 kroner hver uge at tipse for, 
Og hvem har nerverne til del? For ikke 
nok med at man far edelagt sin natte- 
savn under de nervepirrende ugers 
venten pS tegn-kombinationen. Nas, 
man skulle ogsS gerne have en pras- 
mie, som var stor nok til at daskke ud- 
gifterne. Og det er straks vserre ! 

Find »sikre« kampe 

Der ma 1 andre overvejelser til. Og de 
gar ud pa, at man ogsa ma finde nogle 
*»sikre« tegn. 

Hvis man vil ned pi en tipsudgitt, 
som er i en sterrelsesorden, hvor alle - 



eller najsten alle - kan deltage, sa. md 
der endnu flere hovedbrud til. Det er ik- 
ke ligegyldigt, hvilke kampe - eller ret- 
tere hvilke tegn, man anser for sikre. 
Nogen tegnkombinationer er mere ud- 
giftskfasvende end andre. Et eksem- 
pel; 

Lad os sige, at vi har fundet fern 
»sikre« kampe. Vi skal altsa lave et T- 
system, som sikreros 13 rigtige ved at 
fordele dereslerende (13 - 5 = 8)ot- 
te tegn. Nu er det )o tit sadan, at man 
mener bedst at kunne forudsige hjem- 
mesejre. Men er det nu det bedste for 
os i denne situation? Lad os se en- 
gang: 

Vi kan aftsa finde fern hjemmesejre 
og tilbage er derfor et T-system som 
hedder 1,3,4, Det krasver ikke faarre 
end 280 raakkerfor at lykkes. Hvordan 
jeg sa skrasikkert kan sige det, kom- 
mer vit il om Hot Deterfaktisk det, hele 
det efterfalgende program kan sige 
noget om I 

Nej, havde vi i stedet kunne forudsi- 
ge »sikre tegn« for de fire udesejre og 
en af de uafgjorte kampe, var vi kom- 
met af med en tiendedel af betobet til 
Dansk Tipstjeneste. For tegnkombina- 
tionen 6,2,0 koster kun 28 raskker at f A 
fordelt. 

Det er altsa ret algarende for lom- 
mesmerternes storrelse, hvor god 
man er til at tipse de »sikre«. Og hvor- 
dan man nar (rem til de billige kombi- 
nationer, det kan programmet hjaelpe 
med til. idet det beregner antallet af 
kampe pa enhver tegnkombination pa 
op til 13 kampe. 

Programmet kan ogsa beregne. 
hvor mange kampe man mA tipse, hvis 
man vil daakke sig ind med hensyn til 
afvigelser fra sit udgangstegn. Lados; 
ta' et eksempel: 

Jeg ansker at tipse 13 kampe. Altsa 
ikke noget med at gi' mig til at gastte 
pa. hvem der vinder. Jeg vaslger al tip- 
se 1 -taller som udgangstegn. Vi har for 
nylig set denne tegnkombination. 
1 1 ,0,2. Det vil sige, at der var to afvigel- 
ser p& tretten kampe, nernlig de to 2- 
taller, Hvor mange raakker skal tipses , 
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(or at slkre sig 13 rigtige ved denne 
legnfordellng? 78 raekker sSmand. 

Men nu kunne det jo godt vasre, at 
jeg ville deekke mig lidt bedre ind. For 
maske er det ikke kun 2-taller, der Oli- 
ver afvigelserne, men ogsa krydser. 
Hvor mange rsekker skal jeg sa tippe. 
Det klarer programmet ogsa. 

Teorien 

Man far allsa klar besked om ( hvor 
dybt det er nadvendigt at gribe i penge- 
pungen. Det sker efter noget, som 
hedder »btnominal-metoden«. 09 del 
er afledt af ordel binomium. der bety- 



der en sterreJse med to led. Her aitsa 
grundtipset og varianten. Selve fornv 
len ser sfiledes ud: 

n I (n-(n-u)) 
R = 2 

u! (n-u) 

Hvor R = reekkeantallet 
u = antal varianter 
n = antal kampe 

Hvordan og hvorfor man bruger hele, 
eller dele af tormlen vil jeg ikke komme 
ind pa. men henvise til Tlpsbladets bog 
»Alt om tipning - Vejen til 13 rigtige*. 



Det var sa alt for denne gang. Men 
som den, der gar sig den ulejlighed at 
indtaste programmet eller bestiller det 
her pa RUNs redakrion, vil vide, erder 
en spasndende ting mere, dette pro- 
gram er i stand til. Men mere om det i 
naeste nummer! 

I najste nummer vil vi ogs£ bringe 
en mulighed for at fa udskrevet raak- 
keme. Men det afhasnger bade af plad- 
sen og ikke mindst af tipstjenesten, 
idet vi vil bringe et program, som kan 
udskrive pa skserm savel som pa de 
kuponer, Dansk Tipstjeneste er ved at 
udarbejde til printere. 



Til Commodore 64 

TEGNFORDFLING 



10 UlfHEit I31.KUI31:GOSUB850 

20 PRJ NT T CLRJL 8CN1F0LGENDE MUL IGHEDER B 

V0ER SIG: 

30 PRINT" r TNI 1. RjKKE ANTAL UED BESTFMT T 
FGNFORDCLlNG 

40 PRINT TCNJ2. OUmL RJKKER PR - AFUIGEL 
SE~ 

50 PRINT r CN1 3 . UDSKRIUNING AF TEGNSYSTF 
MET' 

60 PRINT f CN14- STOP 

70 uniT203.63:GE I S-J4 : A=UALtSUt ]: IFA = 1 THE 
N310 

80 IFA=2THEN120 
30 IFfl=3THCN3OT 
100 IF'V^rHENF.ND 
110 GOTO70 

120 INPUT TCLR3C2CNDnNTnL GAROEREDE KAWP 
F ; GR 

130 IFGRM3THEN120 

140 lFGR< = irilEN6-l:GR = t:GOTQ160 

150 G-GR:FflT&,R:FORX-GR-lTrjlSTFP- i:Ffl=Ffi» 

X:NEXTX:GR?FA 

160 1FFL = 1 THENFL -0 : RETURN 

170 INPUT fCWANTAL UARI ANTFR " : AU 

180 IFriU< = lTlirNn -1 : nU-|:GQTO200 

190 n-flU:Ffl=ftU:FORX=nU-iTOISTFP-i:Fr»=Ffl>; 

X: NEXTX: ALHFAi 

200 GA -G -H: FAj -GA I FORX =GA- ITOI STEP- 1 : FA=F 
A*X:NEXTX; GA=FA 

210 IFGfl-0ORrtU--nnirNRrGR/rtU:PRlNrR:GOTO2 
30 

220 R=GRA nUWH 

230 IFFL = I TUFNFI. 0- RF TURN 

240 PRINT rCMtKRrfUIR TRCDl :R; rGLKJR^K 

KER , : PRINT UUIS UflRIANTER ER ET TfGN 

250 R2=Rxr2tCG-fR-nni:PRlNT T FN TDGE RED! 

!R2; rBLK JRiKKFR . 
260 PRINT HUlS BFF.GE TFGN OP TRADER I UAR 
IANTERNF 

270 PRINT r3CN3Fi.FRE AFUIGELSER f.REUJJCO 
FF 3 : : 

280 FORX = ITO500: NEXTX 

230 WAlT283.63:GFrsUi; !FSU*= J THEN120 

300 GOTO20 

310 PRJNT rCLRj 

320 PRINT f2CN!SKRI«J TEGNKOMB. I NA T I ONEN 1 
.X,2: 3 

330 E-0:K = 0.Tr0; INPUTF.K.F 



340 GR=E*K+T: IF&RM 3THENPRINT T2CNJF0R M 

ANGE TEGN I SflfW RjKKE .'GOTO320 

350 IFF3-1ANDGROI 3THENPR INT I 2CNIDER SK 

AL ALT ID U^RF 13 TFGN" ■ GO TO320 

360 GR-E+K t FL - 1: &0SUB1 40 

370 IFF--0ORT -0 THrNAU-K : GOTQ480 

388 IFE-0ORK=8mEWIU=T:GOTO40B 

390 AV=F 

100 FL =1 : GOSUB180:M1 =R: IFF -0QRK=0ORT -0TH 

FNF2=1 :GOTO430 

410 GR=G f: FL = 1 : GOSUB I 40 

420 AU^K:' :: L=l:GOSU8180;n2=R 

430 PRINT rCNIANlAL RJlKKER UED FORDELING 

EN "e:K;T; J 2SPC1ER: : 

140 IFF2=1THENF2^0. PR I N TR : G0T0468 

*>50 PRINTM1*M2 

460 IFF 3- 1THENRF. TURN 

«70 PRINT r2CN]N/ TFGNKONBINflTION I REUJJ 
r OFF I : : 

480 r S/DH S/F 1 1 - WAI T203 ,63= GETSU*; PRINTS 
Ui: IFSU*- J THFN3I0 
498 GOT028 

500 KN-0:PRINr I CLR K CNIUDGANGSR^KKEN ER 

F8LGENDE- 

518 KN^KN+l ; PRINTKN: TCU1 KHMP : (NPUTT 
Etf.KN) 

528 IFTFKKNV f ORTEt T KN )= 2 ORTEi TKN ) = 

X ORTrtfKN)- rmH540 
538 KN ~KN 1 : GO I m 10 
^48 IFKN=l3rnrN*50B 
558 GOTO510 

5B0 PRINT 1 EN 1 UI N 8NSKEDE rFGNFORDFL ING 
NED 13 KAMFE F3 -= 1 : GOSUB320: F3'8 
578 ET :0:KRr0; T2t0 

588 Tt ^0;FORK- | T013: TF TF* T X )- THEN T I =TI 
*I 

598 IFTFi CX )- I HIENET -ET+1 
608 IFTEiCX)^ X THENKR=KR-H 
618 IF TE1 TX )- 2 r H ENT2 = T2+l 
628 NEXTX 

638 PRINT r2CNIUU HAR X IP^ZT F0LGENDE TE 
GNFORDELING.T FN1 

648 PRINTET: T CUT . :KR; T CU] . : T2 

658 REM F--F F T; T ,T-T2: 3C=K-KR: F3- 1 : GOSUB3 

30: F3^0 

660 IFF r>E 0R(2>r ORKR >K TMENPRINT (CN}€2 
CHIT REUIT RED 1TF ILT OFF If BLK] " : GOTD680 
628 GOTO730 

688 PRINT TCN1 rfGNFORDELING UFtUi_IG MED D 
FN UALGTTI 5SPF lUUGANGSR^KKE 
690 IFF - I r <0 TUFNPRI NFACSr E -ET ] ; ET-TALL 
ER FOR MANGE 

708 IFK-KR<0 niFNpRI NTABSf K-KR ); KRYDSER 
FDR MflNGE 

218 IFT - r 2<0 riiFNPRI NTABSTT-T2 ); TO-TALL 
ER FOR MANGE 
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720 F0RX = 1 rn258B:NtXrX:GOTO560 

710 F ~F TT; T = r r2:k=K-KR:F3--i:GOSlJB360:F 
3^0 

740 PRJN TT1 ; rrGM SkOL FORUELES MED SYS 

TEMEf - ;13-ri; ERSIKRE TEGN 

750 PRINT T2CN1UJL OU HflUE rEGNSYSTEHET 

udskreue r ? r red i r r-eu i j r off k blk ] 

760 PRINT NY teGNFORDElING? I REDK R£U ITf 
OFF J[ BLK ] NY UDGONGSR,cKKE T RED U RE.0 lUf OF 
FJtBLKJ 

770 GETSUi: IFSU1-- 'HEN778 
780 Il-fivj* i J THEN55535 
730 IFSU*= T THEN560 
000 ] l-"SUi ■ u rni : NBZ0 
810 GOTO20 

920 KN--0:PR]Nr rCLRK CNlUDGflNGSR^KKEN ER 
F0LGENDE: 

830 FORX = lT013:PRINrX; r CU3 . KOP1PC2SPC3* 
:TEi[X):NEXfX 

840 print rnomrcN.i :goto5ib 

850 PRINT TCLRUBCNJ 

868 PRINTTAB(71 t GRN.lt 5/UK 3S/*C][ 20S/*3t 
S/I3 

870 PRINT rnBC71 TS/BU23SPCjr;S/S] 

888 PRINTTOBC71 f S/Slt RED1 TEGWORDElING 

S-SYSTEnCGRN.l IS/8V 

898 PRINTTABC71 fS/BM 23SPC1T S/8 1 

380 PRINTT0B(71 rS/JH 23S/C K S/K JE BLK 3 

310 FORX-1TQ1R00;NEXTX 

920 RETURN 

READY . 



KONTROLSUM FOR TEGNFORDEL I NG 



i0 


185 


20 


246 


30 


129 


40 


127 


50 


5*» 


60 


182 


70 


152 


80 


234 


90 


237 


100 


21 7 


1 10 


240 


120 


243 


130 


1 1 5 


140 


155 


150 


80 


160 


227 


1 78 


232 


180 


110 


130 


66 


200 


248 


2 10 


35 


7 7fi 






227 


240 


174 


250 






OS 


Tin 


9 


280 


q 


7 in 


1 1 7 


inn 


235 


310 


1 1 7 


_> j > ■ 


Q-> 

o£ 


i w 
JJW 


249 


340 


Rfi 


ISO 


77Q 


1PA 

-SOW 


142 


370 




- > ~ -i 


4 7 


ion 


142 


"DO 


I JO 


** 1 u 


141 


420 


96 


430 


734 


44 R 




^ tin 


DD 


4Fifl 


ya 


*»/M 


I 78 


480 


70 


430 


7T5 


cop 


/o 


510 


95 


^ in 


i n 
I D 


530 


25 


540 


124 


t 


J J 






570 


214 


JOB 


i nc 
1 3D 




1 76 


600 


173 


CIO 

QltJ 


OQ 

a~3 


020 


218 


630 


4 


RIP 

DIB 


a i 
Ji 


DOW 


1 1 8 


660 


127 




1C 

J<J 


i, ,ii 

DHH 


171 


650 


127 




**-> 


'ID 


l in 

1 29 


720 


153 


710 


1 54 


7(1 R 






13.7 


760 


173 


7^0 


59 


790 


71 


730 


228 


8W0 


228 


810 


235 


820 


76 


839 


113 


810 


90 


850 


248 


860 


229 


870 


68 


890 


11 


830 


68 


900 


138 


910 


61 


920 


142 








7 I UP PUB 
INDSCNUT OF 

MENRIK BCNNER SUENDSFN 

uesteriieot in lfuring 

80 20 K-IELLTRUP 

Til Commodore 64 



10 REM XXXXXXXXXXXXXXXXXXXXXXXXXXX 

11 REM X X 

12 REM * 7"UP PUB SPIL X 

13 REM * * 

14 REM * 10/01/1985 * 

15 REM x % 

16 REM X MENRIK BENNER SUENDSEN x 

17 REM * * 
10 REM xi:xxKxix^KTiKxx"iK.Kx«;*xx.*KXJtx*»;.xxx 
20 POKE532R0 .0:POKE53281 ,0:PRIN r f CLRJ " 
30 XP -9 ; YP -\ 0 : UDSU0O0000 ; PR I NT F YEL 3 UENT 

mens nnrn t*oKEs ind 

*>0 FOR X=0rO3000;NEXT 

100 POKE 56^78. PEEKC 56579 )0R3 

110 POKE 56576. TPEEKC 56576 3HND252 30R1 

120 POKE 048.132 

130 POKF 53272. C+*ECK(53272 30NU153[JR16 
13-,i POKf ■>32V^,fpcEK(53272inNP210)OR2 
110 PRINT I CLR] " 

150 XP^9. YP Ifl - GOSUB60800: PR INT'T YEL3UEN 
t MENS DflTfl POKES IND 

200 RFP1 XXXX X X tXXMMXX-MXXXXXXXXXTtXXXXXXX 

201 REfl *x» SPRl fE DHTn ^rtET TPS OP XXX 

202 REM x ' k* « « ■ x iu«ri« xxxxxxxxxxxxxxxx 

210 for spri rr -i TO 13 

220 TOR OnT-;0 lO 63 

230 RE.flU BY IE 

240 POKF l0*16t3fSPRI TExSltDflT .BYTE 

250 NEXT Dnf .SPRITE 

300 REI1 x*«*i:x««'»"«XJ(*xxx-xji7:«xx3ix»Xij;x3s* 

301 RFI1 xxx TEGNSnETTET SflETTES OP xxx 



302 REM xxx*x*xxxxxxxxxxxxxxxxxxxxxxxxx 
3I0 PRINTCHRif l 4 ) 

320 POKE 56:331 . PEEKf !if5331)0ND251 

330 POKE I .PEEK CI 3i4ND25l 

310 FOR DO I -8 10 2047 

350 POKF 348l6^Dnr .PEEKfDHr^-532483 

360 next onr 

370 POKE l .PCCKM )0R4 
390 POKE 56334 .PEEKC56334 )0Rl 
390 POKE 52, 128: POKE 56.128 
400 FOR CHOR - 1 TO 34 
410 READ TEGNNR 

^20 tor Dnr-o ro ? 

130 REOD BYTF 

440 POKE 34816^TEGNNRx8r-DftT r BYTE 
450 NEXT DO T .EMIR 

1900 H^xxxxxxxxxtxxxxxxxxxxxxxxxxxxxxx 
1010 REM*xx SPRHF Dliro xxx 
1020 REH.x.x x 1-4 7 'UP SYflBOLFR xxx 
1030 REMSKX* 5 KOFSEL xxx 
1040 REnx*xxx»i:^ixx*iK^ixxx*»xxxxxxj;xj:x 

1058 unrne? .2*15.254 . 127.255.255,127.255 . 

227.127.1,3.73,124,26.73. MZ 

1068 U0mi8 . '3.67. 18. J 3 . 79 .50 Ji? . 1 26 ,50 . 

79, 120.2 ,71 . 121 . I M 

1 0/0 00 T071 .124,240. 255 . 1 24 , 249 .25b . 1 20 , 
251.255,120,113,255,121,143, 255 

1 0 88 on rn 1 1 3 . 255 . 255 . 11 3 . 255 . 255 . 9a . 255 . 

255 . 33 . 255 . 255 , 63 . 255 . 251 , 253 

1090 DO TOO. Pl. 0.0.0 .0.0.0.28.0.192. 1 82, 3. 

223.182. 15 

1 1 00 nn rn237 . 1 82 .6" . 237 . 1 82 . is . 205 . 1 bb . 1 

.205.176.1 .753.176.3, 141 

iup unmi m. i. 15.0.3.6.0.7.4.0.7.136.0. 

B.U2, 0 

1 120 Dnmi 4 .0 .0. 14 .0.0.28 .0.0 .28 .0 .0.0,0 

.0, 8 

1 130 Lin r 00. 0.0. 0.0 .0.0.0.28.0.192. 182 .3, 
229.182. 15 

1140 00 T0237 . 1 32 .60 .237 . 182 . 18 . 205 . 1 88 . 1 
. 205.176. I, 141 .176.3. 13 
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1159 DOrOIB8.2.15.0.2.t4,e.6.4.0.7,0,0.6 
.0, 0 

I 160 DO mil .0 .0. t4 .0.0, 28 .0.0 .28.0,0 .0,0 

-0, 2 

H7H 00700.0.0.0.0.0.0.0.0.0.0.0.0.0.0. 
0 

I tew pnrno. 0.0. 8. 0,0. 9,0, 0.0,e.0.ll2.0,a 

. 248 

I 190 DO MB , I .252 .8.1 .252.0.1 .252 .0.0 .218 
.8.0. 1 12, 0 

1200 UO rO0 ,0.0.0.0.0.8.0.8 .0.0.0.8.0 .0. 

255 

1210 DO ri8 .8 . 0 .63 . 255 .252 .127. 255 .254.12 
7 . 255 . 251 . 1 27 . 255 .254 . 1 03 
1220 1)017157,206.0.0.0.0.0.0.0,8.0.0.0.0, 
0. 0 

1230 UO 100 .0,0.0.0.0.0,0,0 .0.0,0.0,8.0. 
0 

1210 [If* MB. 0. 0, B. 8. PI. 0,0. 0,0. 0.0 .0,0,0. 

253 

1 250 REilxxtKTX.itxKKXxxxxxxxxxxxsxxxiixxxx 
1260 RFMxkx SPRITE" UOTO xxx 

1270 Rrn*.« * 7 5 snoo floskfr *** 

1288 REM"** 10 14 GLOS *xx 

1230 REM** t«i IIUIUUTII xxixxssxxxxxxx 
1300 DO 100. I 70. B, 8. 1 20. B. 0.1 20, B.B. 252.0 
.0.252.0. 0 

1310 DO 1 0757, P. I .254 .0. 1 .254.0.3.255.0.3 
.253.0.7. 255 

1 329 OH mi . 7 . 255 . 1 28 . 7 . 255 . 1 28 .4 . 1 6 . 1 2 
3.7.144 .12". 7. 83. 128 

1330 UOI07 .67 .120.6.255.128.6 .255.12B.7. 
25S.128.3.2SS.8. 2 

1340 UOmiS.B .0.240.0.8.124 .8 .8 . 62 .0 . 0 . 3 

1.12O.0. 3l 

1350 DnrO224,0,15.7<1B.0,l5 ,252,0.15.255. 
0.7.145.128,7. 21 

1 360 tX»mj9Z,A. 203 . 224 . 3 . 1 33 . 240 . 1 . 223 . 2 
18. 0. 239. 252, 0.111. 254 

1370 prima .63 .255.0.31 .254 ,b. 15.240.0,7 , 

128.0.9.0. 2T5 

i3«0 noma .0.0.0 .0.0.0.0.0 .b. 0.8. 0.9.0, 
0 

13^0 U0 106 J. 254. 0.243, 255, 3. 243. 255, 15, Z 

•40 .255 . 255 . 710 ,255 , 255 . 254 

1400 Uf»m<T>:>. 755. 240, 255,255. 213, 255, 15, 

244. 255, 3. 24.'. 63,8. 247, 255 

1410 UnmB.fi3 .751.0.0.0.0.0,0,0,0.0.0,9, 

0. 253 

1120 DOl OB .! 08 .0 ,9,85 . 1 28 .37 .85 .36 .41 ,85 
.160.22. 170. 3fl. 21 

1130 D0ir085.38.21 .85. 80. 21 .85 .80.21 .85,8 
0.21 .y'5.80.71 , 35 

1419 DO 1 080. 71 .85.80.21 .85 .00 .21 .85.80.2 
1 .253.00,31 .87.208 

1450 DA T053. 85. 112. 5. 85. 64 .5,65.61.0.84. 
0.0.0.0,0 

1 460 DOT 00 . 1 68 .0 . 9 .85 . 1 28 . 37 .85 ,96 .4 I .85 
. 160. 22. 170. H0. 21 

1479 UOlO85.y0.2I .85.80.21 .85,80.21 .85.8 
0.21 .85.80 .71 . 85 

1488 UOroQB.71 .85.80.21 ,169.80.26.254.14 

1,47.255.221.58.254. 176 

1 490 DO f 06 i . 1 7 1 . 210 . 1 5 . 755 . 1 S2 . 1 5 . 255 . 1 9 
2,0.752,8.8.0.8. 2 

3 500 [W I Ott. I OH. 0.9. PS. I 20.37. 95. 96 .41 .85 
.lO0.72.17M.y0. 21 

1510 UOIOH-. .00. 21 .8S.O0.7I .8S .80.71 ,85,8 
0.21 .OS .88 . 7. 1 . 163 

1520 UnlO!'R.2«..7'54.t44.47,255,774.59,251 
. L76. 63, I 71 .718.63,255. 210 
I530 UOrOfi J ,255.749.15.255 .192. 15. 255. 19 
2.8.252.0.0.0.0. 0 

1510 DO 1 10. 150 .0 .9.95. 1 29. 37.65. 9B. 4 I .95 
. 160.72, 170,80. 21 

1550 nnioo'.. 30.21 .as. 98. 21 .95 .80.21 .163. 

00.26.254.114.47. 255 

I 569 W T0221 .58 .254 .176.63.171 . 240 . 63 . 25 
5.240.63.255.240.63.255. 248 



1570 D0T063 .255 , 248 . 1 5 .255 . I 92 . 1 5 .255 . 19 
2.9.252.8 .8.0.0. 0 

1580 DOrnB. 168 .O .9.85 . 128 .3?. 35. 96, 41 ,85 
.168.22.170.90. 21 

1590 Unm35 .30.21 ,169 .98.26.254 . 141 .47 .2 
55.274 .58.7^.176.63. 171 

1680 tlfl 11248 .63,755 .240,63,255,240,63,25 
5,248.63.255.240.63.255. 240 
1618 DO b063 -255 .210.15 ,255 , 1 32 , 1 5 .255 , 13 
2,0,252.0 .8.8.0. 0 

2800 Rf fl* " t KXXX XXTXXXXXXXXX*XXXXXXXXXX 

2010 RFTH*» BRUGERDEE INEREDC TtGN *** 
2820 RLH"**««xx*****xxx*xxxxxxxxxxxx* 

2030 unro 65 

201 fl Un 1 ffiKH . 254 . 254 , 254 . 253 . 253 . 253 . 253 

2050 unm 67 

2868 Un l 0248 . 252 . 252 , 252 . 254 . 254 . 254 . 255 

2070 Dnrn 60 

2080 DO 10739 . 233 .239 . 239 . 223 . 223 . 223 . 223 
2090 Onto 69 

21 00 DO 1 031 .63.63.63. 127.127. 127.255 
21 18 onm ?8 

2170 UOroni . 191 . 191 .131 .127. 127.127.127 
2130 DO 10 73 

2140 UO f 0197. 192. 128. 128.128, 120. 0.0 
2150 unro 91 

2160 UnrO0.0.1 .1 .1 .3.3.3 
2170 Dnro 87 

2180 Unrn63. 63. 127. 127.127.127.255.255 
2190 Unm 83 

2280 l)fiin7M .251 .251 .251 .247.247.247.217 
22 10 Don 81 

2220 Urt I 1255 , 255 . 254 , 254 , 254 , 254 . 252 . 252 
2230 Dnri 85 

2248 Dnri21B.210 .224 .224 .224 . 224 , I 92 , 192 

2250 onrn 86 

2260 Dnm B. 30.12. 63. 127. 96. 96. 96 
2270 DOTO 87 

2273 Dnm 7.7.7.15.15.15.31,31 

2275 onm 88 

2280 Dnri224.224 .224.240,240.240.248.248 
2290 Dnm 89 

2300 Dnm252.252 .248 . 248 .218 , 248 ,240,240 
2310 DnrO 90 

2320 UnflB.B . 128 .12B . 128. 192. 192 . 192 

2330 onm 98 

234B Until , I .3.3 .7.7.15,15 

2350 pnrn 99 

2360 Dn T0252 . 252 . 254 . 254 . 254 . 254 .254 . 255 

2370 Dnrn 100 

2380 Dn 10218 . 248 . 252 . 252 . 254 , 254 , 255 . 255 

2390 onrn 107 

2400 DnT1?55.2S5 .255.255.255,255.255.255 

2110 unro 189 

2420 Dnm3.3.7.7.15.15.15.7 

2130 Dnrn ten 

2440 00100 ,n .8. B .3,7.7.3 

2150 unm n« 

2160 Un m 112. 1 92 .192.221 .224 , 224 .240,218 

7179 unm Ml 

2188 Uni19l ,31 .63.63.127.127,255.255 

2190 unro 1 1/. 

2500 Uni03.3.3.7.7.7.15.l5 

2510 unro 113 

252B un 11255 ,255 .255,254 ,254 . 252 .248 .224 

2530 onrn 114 

2540 UnriR 5.63.1 27. 127 .127.127.127.255 

2550 unio 115 

756B OnT125S.255.255.I27.tZ7,63.31 .7 
2570 Unm 119 

2580 Dnrn 5 . I 5.11 .31 .31 .31 .63.63 

2590 Dnrn 120 

2600 Dn riZ40 .24B. 248 . 248 . 248 , 248 .252 . 252 

2610 Dnro i2i 

2628 Unm 128. 178 . 197. IS2.221 , 221 .240.210 
2638 Dnm 123 

2610 Unmi92. 1 92 .224 .224,240.240.240,224 
2658 DOro 1 24 

2660 nnm8. 0.0. 0.255. 255. 255. 255 
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2b?b onrn 125 

2680 EJFirnB, 0.8, 0.192. 221 ,221.192 

2900 Uin ftf471 

3000 Km XXJIXXVXXKXXXXXXXXXXXXKVXXXXXX* 

3001 Rcrr x« » stor ?'up tegne^ i»> 

3002 REPI t»u»tinttt»niuinfwxmn 

3005 POKE '53289. 00: POKF 53281.00 
300? BO-200G 

3B1B fLIGRN] " 0=53248: PRINT' T C 

LRJtCNJ 

3015 FOR I-1NII ; 1 rO2-GOrO3030 
3020 TOR LI WTO TO 21 
3030 IT LlNir>16 THEN 3070 

3B4PI if t.iMir^e mew 3060 

3050 ON LIN 1 1 GOSUB 5010.5028.5030.5040. 
5050 .5060 .5070 .5080: n'EXT 

3055 IF LIN II -3 THFN FOi = r GRN 1 ' GO TO 30 
20 

3060 ON LINIL-8 GOSUB 5050.5100.5110.512 
0 ,51 30. SI -IP. -;,15B.516B;NFXT 

3870 ON LIM|f IB GOSUB 5.170.5180.5190,52 
00.5210: Nr.<l 

3077 FOR I I TO 6:G1 TLl-INt TRNCU0 1»201:N 
EXT 

3000 PUM' U«B. I72:POK.r Uf9.G7:P0KC Ut21, 

TfJKf U<21 lMR7r4 

3100 POKC -h^h .0 

3110 rOKF J i 33. 2 

3 120 POKF Oi4B,| 

3130 POKF 0H1 .1 

3140 POKr. <-"l2,2:P0KC , J'43.? 

3150 X0=2<l: »*0-229 

3160 XI =320; -*1 =223 

3170 X2*24: yz = 50 

318B X3=?96:Y3=58 

3190 POKF ?18B8.1 t 128: POKr 31809 . 2* I 2B: P 

OKE 31810.3' 1 28 -POKF 34811.4+128 

3195 POKI' Y4812.L28+5 

3200 POKF Ui 23. 12: POKE U+29.12 

3210 POKF Ut21 .31 

3220 POKF UH6.0 

3300 FOR 10 10 74 

3310 POKE J.W-POKE U-l.Vt 

3320 POKr Hi3.Yl.ir Xl>=256 IHFN POKE U> 

2. XI -?55:PtJKF Utl6.FCCKrUH6)0R2:G0t0 33 

30 

3325 POKI IM 2, XI: POKE OH 6 . PEEKl O H 6 3AND 
153 

3330 POKr !IH ,X2:P0KF 0*5. Y2 

3310 POKr '-».7.Vi.-ir X3>=256 THEN POKE 0+ 

C .X3 -255: PI JKI O I 16 .PEEXCU* 1 6 J0R8: GOTO310 

0 

3350 POKF Ui6.X3:PDKE 0 * 1 6 .PEEKtO M 6 )OND 
255-8 

3400 XB^XOt 2: VB-Y0-1 .55 
3118 Xl-Xl 2; Yl-Yl-1.55 
3420 X2^X2M .85: V2=Y2M . ? 
3430 X3-X3 1 .85: Y3-Y3H.7 
3500 NEXT 

3510 POKE 31B12.5HZ8 
3530 POKE «.«»B. 172 
3510 POKE m9.fi8 

3558 POKE M-23.PECKr-Ji73inN0255-2T4:P0KE 
U ^ .FEFKf U i 23 lfiN0255 ?T1 
3570 TOR ] -« 10 1 000 i NFX T - GOSUB I 1 008 
36 BB I OR I -PI TO IB 
3618 POKF '>tn.PFFKI0^9)-l 
3620 NEXT 

3cl»0 rrxurwi- mi r.R nNsm i :tyelj 
3600 rEXrttn? ?up pubbfn jcyio" 

3B7B rrXT*t23- Mf N IV) BRINKS' ENEtLTBl-U) 
3675 rEXr*'31^ FORSUINPCRI FYN3 

3688 irxnri) son oug tor i **fljsolen :e 
hl'Mfj 

3698 tFXI*r51= MOLD GLHSSFNFT GR3] 

3695 TEXT*/ 63-= F VI .DTP fCUMTT 

3696 rrXH' 71- FR DIN FLflSKE rOWLTBLUl 

369? rrxftrsi- heni mere fro : r yfl] " 



3698 1 FX Tim-- OENNE ^'UPIYE'LJ 
3700 TOR !0 TO 9 

3718 or i.i Nr rpxru i n 

3720 FOR U 1 TO f)T 

3730 XP -19: iT-1; GOSUB 60000: PRINT MIDiCT 

Exitr i l.m -qm .01 

3710 NFX I n 

3758 FOR Q I '0 (11/2- I 

3760 Xr 2' •T I : GOSUB 60000: PR IN rCHR* T 20 3 
3770 NEXT 0 

3780 FOR W-0 TO 2900: NEXT 

3790 XP B: 1: GOSUB 60800:PRINT f 37SPC1 

M 

3980 NEXT I 

3805 POKE *18I3.6< 128 

3310 POKE OM0.0-POKE OH 1. 34 

3BZB POKr 0»23.PEEKCU+23 1QRZT5 

3S30 POKC U«29.PtEKtU'29 V)ND255-2r5 

3818 POKF 0 1 11. 1 3 

3858 POKE U»2l .PCfK(0*-2l )0R2t5 

33B0 FOR I I r 0 1 35 

3B70 POKE Oi 10.PFEKCOM8 )r I 

3980 POKE 0 1 1 1 .PEEKCO Ml Vt- 1 

3890 NEXI 

3300 FFH-- f L I GRN I 

3910 XP^0: GOSLIB6BB00 

35120 GOSUB 5030;FCIR I =0 TO 1 880: NEXT: GOSUB 

5B10:FOK I 0TOI000:NEXT 
3925 GOSUB 5050. FOR I =0TO 1000: NFX T : GOSUB 

58B0:FOR I -0 TO 1 03; NEX T 
3930 POKE UH4.5 
3910 r=5 

3950 FOR J "I TO 135 
3360 POKr OM0.PEEK(UM0)-i 
3970 FOKC 0M1 .FEEKfU i ll )-l 
3980 NFX T 

1000 FOR I -0 TO 1000:NFXT 
•>0l0 POKE 0'2l .0 

1020 POKE 53272. TPEEKf 53272 )nND15)OR0 

4030 POKE 648.128 

1010 POKF 532R0.00;PaKF53281 .00 

405B PRINT I ELRJTBRN1 

4060 GOSUB 6000 

1078 POKF 33784.131 

1080 FOR I 33^86 TO 33791 

4090 POKE I . HI 

4100 NFX F I 

4L10 POKE OH .108: POKE 015.120 

4120 POKE U iB.125: POKE U 1-7.1 20 

4138 POKE 018.150: POKF 0^,120 

1418 POKE Ui 10. 1 75: POKE UH1.I20 

4150 POKE Oil?. 200: POKE OH 3. 1 20 

44B0 POKE U ' 1 1 .225: POKF. UM5.12B 

4470 POKT O.40:PQKF U»1B.1:P0KF O»1.100 

4480 POKE U*23-l:PQKE U^ 29.fi 

4190 POKE 0<29 .252 

4580 POKF U>37.l 

45! 0 POKE 0-38. 15: POKE OH 39. 5 

4520 FOR 1-41 m 46 

4530 POKF 0' I . 14 

4540 NEXT 

4550 POKr 0*21 .253 
499H PRIN! I HOMI" 
4099 GO 10 ^OH 
5980 PRIHI 

5018 PRiNnnBrxirni r 5SPCitr/zjr 2C/cu iv 

XI : RE rUKN 

5070 PRirinnntxiFn* i 5spcnc/DK2C/cii[cr 

F3 rRfeltJRH 

5030 PRINI TrtBrxlFrii r5SPCJftVNK2L-/QJ[C^ 
PI -RI KIRN 

•JB40 i'rini lourxiFn* r sspc u fvn Jt 2C/0 ic rv 

PI : RETURN 

5050 PRIN'rr\BCX1FOi f 5SPC31 C/N]T 2C/0TL 

PI : RE 1 URN 

5000 PRIM! |YiB(X)Fm T5SPCH F/n It 2C/Q3C 

SI : RF * URN 

5070 PRINTTfiBtXJFfl* T5SPCK f/F IT 2C/Q1T E/ 
ol ■ RETURN 
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5000 pr i n r mm x )Fft* " r ispc ir ci u ic/o ic c/ 

0 .1 I RETURN 

50*33 pr in r r^BCx )Fni r 4spc jr r/y n ic/o u c.s 

U| ! RETURN 

5100 pRiNnnBCXiFo* Mspcir c/K]r,4C/QKCv 

TJ" : RETURN 

■5118 PRINT I OBCXIF EH T4SPCK 6C/Q1 : RETURN 

5120 print rnBCxjFn* rnspcjcecxn] : RETURN 

5130 FRINT IflBCXlFAV T4SPCK6Ey'0) : RE TURN 

5M8 print rnBex. if- fit f 4spc h be-tj j trefurn 

5150 PRINT lOBrXFft* I1SPCH6CQ] : RE TURIN 
5160 PR |NI rnBCXJFnt'f 1SPC3C6CXQ3 ' RE TURN 
5170 PRINMflBrxjFm T T5PC J[ 6C/^3 • RETURN 

5190 ppiNTTOBcxirnt r <i<5Pcuec^Q] ^return 

5 1 30 PR IN I TflBCX )F fit " [ 2SPE. ][ SAJ It S/» H 6C/ 

01 : RCTURN 

5200 FRINnriBCXTflt F 4SPEH OE/fJ] : RE TURIN 
5210 PRINrrnBCXJFnt r4SPCKC/WlC4-r/0H Cs 
Fl ; RF FUKN 

&000 PRINT I T'LRII URN IT 7EN] 
6010 PRINT I0DC71 rS/tW21E/U][ S/?] 
6020 FRINTTYmC?! f S/U 1 [ 21 (VQJt S /X] 
6030 PRINT TftBr71 r S/E1T 21 C/fJ It S/C] 

6040 print irmrei r s/^5ir23c/n3c s/?] 

6058 PR IN I I0BT6 3 f S/VI1T 23C/TJK S/XJ 

6060 PRINT TflBf 7 1 T RED It 23C 1 " 

6070 PRINNTHK71 T 6C/Q If WHTJC I IC/Ojr RFO 1 

T 

6030 PR IN I I VFLU 7E/Q II PEL) If BOGIE RP.U11 W 

tin /tupt'ftfip&jpUB f p» dm niTTi er/nn vcLH 

0010 PR1NI I iTulI 7Cr0 1l Rr.DlT6r/0UUHT]L 1 

IC/nURflMI BC>0>[ rTL H *3C/0'I 1 

6015 PRIIIt t YE I .11 7V,sQ ITPFD H 21L/TJ1T YELK 

5100 F'PINT I r'l Lll 7EV0 H REO ll 23CV0 ][ YFL 3f 

6110 I OR ft] ' I TO *5 : PRINT T YEL H 39C/0 

i ;nrxi 

6170 TOP YP ^ 6 TO I 1 : XP-38: GOSUH 60000: 
PRINT TCYNirryQl -NEXT 

6130 XP-3B: ^P -5; £0^660000: PRTNT T RFUlt 5 

' 

61-10 XP=38: f'P-12: GOSUB60000: PRINT" fC/x) 
6200 GOSUB7500; RETURN-' REfi PRINT BONUS 
6930 U-5321B-.P0KE53269.253 

7000 REN ******* XX XX* XXXXXXXXXXXXXXXXXX 

7001 REN "< IO.'SF|K ST/RIHG xxx 

7007 RLfl * ***X**XXXXXXXXXXXTXXKXXXXXXXX 

7005 5X^235: 'T : 0. 60SUB 950» 
7010 IP rrEEKC56320 V>NOi61-0 IHFH GOSUB 
3000 

70l!i || F1M0 IICN POKE 0<39,!3 

7070 J- 15 rPf*FK(56320inNDl5 1 

7050 IT Tlf»N|.l81-8 THEN SX=SX - f SX<334 )*5 

7060 IT TIHNU41-4 TI-IEN SXrSX+f SX>0 )*5 

7070 IE 5X>-333 | HEN IE PEEK T U I 39 J -253 TH 

EN E»OSUB 3^00: GOSUB 9500 

7100 BD'SuO BR00 ; RErt Fl. Y F FLnSKE 

7110 for i-i ro 6 
7120 GL r i l -r.i.r I Hi 

7139 II GLT | 1-25 THEN &l_t I1---0: POKE 33785 
H .PFEKF337BSH l+fPEEKC33785t[ 1 > 1 37 1 
7135 IF 'TTrKF33785M 3 = 137 THEN BO"BO-1:G 
OSUft 7580 - REM PRINT BONUS 

7140 NEXT I 
7200 GOTO 7010 

7500 REN xmtxxxtTXxxxxxxtxxxrxxxxxxxxxx 

7501 RE 11 ««« PRINT BONUS i&X 
7507. REN UttX*««I«**3LMX*t^Ki(»^«IS!l(XirtX 
7510 PRINT T IIUN1T 2EN1C 9CII3C 7SPC] 

7520 PR IN T I MUM II 2EN IT 7< H II I IBI.U1B0NUS ! 

;Btl: IE B1» BTIIENl 0000; Rr TURN 
9000 RF 11 rtmimtirTi ni niiiftuiVTi 
B001 REM •** PLYI FLnSKE *** 
80B2 REM KTItf TttKIVtt IfYVUffcTT YHIt JI XT J! 
8010 Tl *W>2$5 (HEN POKE U .SX -255: POKE 0 
H6.PUKi:0i 16)0RU&f>T0 8100 



S07P PRftf Ut5XfP0KC 0> ■I6.PrtKfUM6)flND25 
4 

8100 RE IIJPN 

3_)00 RE II ********** *KXXXXK XXX xxx xxic-xxxx 

8501 REN *«« TlLBn&E TIL SKftERM I *x* 
9502 RIT1 ••antiumiitniittuium 

8503 POKE 532-65. PEEK f 53265 WU239 
850*1 f UR I 0 TO «6 

3505 or 1 1 *Pi rk.ru 1 1 1 
s'sBe Nrxr i 

8506 r I 0 

85 IB POKE R19.1 32 

85/0 POKE Ui21 .0 

81530 FOKI 53272. 'PEE/K(537>>2 )flND15 )0R16 
35-10 POKE 31908. I31:P0KF 31809 . 1 29: POKE 
31810. 130; POKE 31811.131 
85-15 POKE U<J2,0;POKC 

8550 POKE M8 12. 132: POKE 34813.133 
3560 POKF U,0;POKf U'1.92 
8570 POKF U.2.172:P0KF Ui-3.121 
POKE U»1 .172:P0KC Ui-5.121 
859B POKE «"G.158:P0KE U^7.[80 
8600 POKE 018 , 158: POKE U*9.I80 
8610 POKE OH 0.1 72; POKF OH 1,55 
B620 POKE 0f23.25:PQKE U^29,21 
8630 POKE 0I39.I3 
8610 POKE UH0.2 
8650 POKF U 1 1 I , I 
8660 POKE UH2.1 
8670 POKE OH 3. 2 
3675 POKF Umi4 .7 
8680 POKE 0<28 .0 
S685 POKE OH 6.0 
8698 POKE 0(21 ,63 

8780 rnt t l i (iRN i 

8710 PRINT I ELR J F 2ENJ 
8720 FOR I 1 TO TH 
8730 GOSUB 8930 
3740 NFXT I 
8745 Ffl$- f GRN ] 
3750 FOR I - T »2 TO 21 
3760 GOSUB 8930 
8770 NEXT I 

8775 POKE 53765. PEEKC53265 10R16 
3780 FOR 0-0 TO 135 
8790 POKE O.PFXKCOVH 
3800 POKE 0» I .PEEKfU' l )» I 
3810 NEXT 0 
3815 Ffli i I I CjRN J 
3B20 TQR W I TO 3 

8830 I - I • I iUJ:XP=0: YpTr>Uh3:G0SUB 60000: G 
O^UB 8330 

8835 FOR Z-ft FO 1000:NEXT 
3810 Nrxr I -J : IF F>17 THrN 10000 
3845 POKE 0'39.5 
3850 T=Tt3 
0860 FOR 0-0 FO 135 
3870 POKE U .PEEK CU 1 - 1 
8880 POKE Oi I .PEEKtUM )-l 
38.90 NEXT f):POKF 53265 .PEEK C53265 1AND239 
8895 FOKI y*2I .0 

8B9G FOR I -fl FO *6:P0KE OtI.ftfl):NEXT 
389^ POKI 0 »39.5: POKE 548.128 
8098 POKF 53272.fPEFK(53272)f»NOl5 1OR0 
390R GOSUI.I 6000 
9901 SX-5X-5 

8910 POKE 53265 .PEFKC 53265 )0R 16 
3920 RE TURN 

3930 11 |'-1 IUEN ON 1 GOSUO 5310.5070. 50 
30/3010 . 5ir,O.'j0GB. 5070. 5080: f.OT0 93G0 
394P II t ' I 7 IHFN ON 1-8 GOSUO 5090.5100 
.5t 1 815 120 .5 1 30. S1 10.51 50 .51 60: GOTO 8960 
3950 ON I IG GOSUB 5170.5180.5190.5200.5 
710 

8960 Rr TURN 

1000 RIM *X*X9XK*XXKTXKXTXXXXXXX9XXXXXX 

3001 REPI "« Flp FuflSKE xxx 
9002 REfi * xxwxxxxx*x*xxx*xxxxvxx*xxxxxx 
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9005 IF P|TKr0^3«5lT253 n-ICN RETURN 

9020 !K sx-115 niFN fo-M-Gom 9100 
9030 ii sx-140 then gl^goto 9100 
9010 if sx ig5 nirN Gi_=3:Goro 9100 

9050 II VMIB TNFN Gl.=4;GOrO 9100 

w.n ir sx 215 nirN ci_rs:&oro 9100 

9B70 II <V=-210 mrN t,i.--o:Goro 9100 

9880 R| I URN 

9100 POKE 33701 . I & 

•5110 FOR >*-0 TO 108: NEXT 

9130 POKF 33784 . l3fi:P0KE Uh23.0:POKE 0+2 
9\l 

9140 TOR 7-0 TO lB0:NFXr 

9I5B IF HM'K(337BSfGi.)-Mi IHFN GOTO 918 
0 

91B0 POKF ?r^85t GL,PITKr 3378*5 t GLTH 

9 1 70 TOR / 0 TfJ 500: NEXT:' I -f- I M : GOSUB 9 

500: GO TO 'H\0 

9180 gosub 12000 -RmrOR 2=0 ro ib0:next 

9700 POKF *3V84. 135: POKE U+ 23. I: POKE U>2 
9.0 

9710 I UK / 0 10 IBBiNI XT 
9270 I 'UK, I .13701.131 

9230 return 

9*500 rfh xkxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
9510 rem '*« print flnske i ndnold *** 
9520 rf;n 'xtxt kxxxxxxxxxxxxxxxxxxxxxxxx 

9-530 PR I N I III0I11 n.nSKFMS INUHOLU : i 
9535 IF I \<? THEN PRINT r HON J :Tf»BC2arr 
28C/0I 'RETURN 

95<ifl FP.INT IHFTM i:XP-20MMT(f4Z-ri)/2): 
VP-|:G0SUB 00000-PRINT f 2C01 
3550 RETURN 

1B0B0 RF(1 *«x^:x*jtjt*x«*i:*'xit'XTxxx* , «j(n 
10010 RFfl *" OF^LUrNING *** 
10020 REM * * * * xxxxxxxxxxxxxxxxxxxxxxxxx 
10840 J 'OK I '"21 .0:PRIHr fCLR] 

100*50 xi- -tv vp -5 . &ckub60000 : p«? i n f tyeug 
one gufr 

I00R0 XI' I CV vp -a . GUSUB60000: PR 1 N T T LTBLU 
ltlU TIK :B0- POINTS 

IB0V0 XP 7 vpri0:t,oSUBS0000: p RINr TRYK 

fn wr rm nyt spil 

10075 XP~I2: vp-|2-GOSUB6B000:PRINr - 'S' 

for stop 

100«8 &i "Tm.\rn%-- i-hfnibobb 

10090 IF Ai- S rHENPRINT rCLR.l : END 
10095 PDKl 53272. TPEFKf 53277 MNDI5 10R36:P 
OKE 618. 1 32 
10100 GO 10 3000 

11000 RFfl *xxxxxxxx*xxxxxxxxxxxxxxxxxxx 
1 1001 Rtd m UP x X x 
11002 RFH titmriinxxirminM.it.tii 

1 1005 <> -54272 

11010 FOR L*S to S»24.FOKLL.0:NEXT 
11020 PnKFS»5,< 1 0.POKEST6.l. RFfl nDSR 

I 1030 POkf^'24.15 : RFfl UOL 
11040 POKr-if 1 .25.P0KCS.t77; RFfl HI/LO 

II 050 POKF . 17- RETURN RE 11 UfiUE ON 
1 1200 RF FUKH 

17000 RTI1 rtxxxxxxxxxxxxxxxxxxxxxxxxxxx 

12001 hTil CMC LYP U. NOELD xxx 

12002 Rl II xtxrxxxxxxxxxxxxxxxxxxxxxxxxx 

1 280*3 S =54272 . 

12010 RIM TOR Lefi TO S*24:P0KE L.0:NEXr 

12020 POKF S'5.034:POKE 5*5.1 

12030 POKF Si 24 . 15 

12810 POKF St I .31 : POKE S.165 

12050 GII^UB 12100 ; 

12060 POKE 5 • I ,33 ! POKE S.135 S GOSUB 1 
210O 

12870 POKE VH .37 . POKF S.162 : GOSUB 1 
2100 

12099 RL f URN 

12100 POKE SH.17 : FOR DU - 0 TO 50 ' N 
EXI:PUKr s>4,lfi;E0R HO-0TO5 :NFXT: RETUR 
N 

G0000 REM xztXxxxxxxxxxxxxTxxxxxxxxxxxx 



60001 Rl H *xx PRINTPOSITION xxx 

60007 Rl (1 iirmmnxiiiimTnmtn 

600 L0 FKINI I 1(0111 : 

08020 H «TO0 NiFN POKF 2 1 4 . vp- 1 : PRINT 

60B38 PORT 71 I .XP 

60010 R( 'URN 

srnoY. 
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Til Commodore 64 

nPSPROGRnfl DEL 3 



10015 DINRE*C13:3 

10240 X*B9:V=9:&OSUB20000:PRINT 3> PEDU 
CEREDE SYSTEC1CR 

11160 ONQKGOrGi 23B . 1 1 330 . 11 900 

1 3080 REn««*T*xxirxxx:>:xjEXxx Kxjt^jtxxxxxx 

13001 REM BILLUDE REDUCEREOE SYSTEMER 

1 30B3 REn**XK*«X»X*X*X)tXX**»Jt*JC*71JC»XK3K)t 

13B18 PRtNT'T CLR3":Xs|0: V=3: GO5UB2G000:P 
R I NT " r REU J C 2SPC 3 REDUCEREOE S VSTEflERC 2SPC 

]" 

13020 ^-9: V = 8: GOSUB28000: PRI NT ' 1> INDTflS 
TN1NG RF SYSTEM 

13030 X=9: f-9:GOSU820080:PRINT"2> LOAD S 
YSTEH - BflflMO" 

13B10 X = 9:Y=18:GOSUB2000a:PRINT' 3> LQflU 
SYSTEM - DISKETTE' 

13B50 X=3: Y^l l:GQSUB20008:PR|NT 1> SAL»E 
SYSTEM - BflHN.l" 



13860 X--3:Y=l2:GOSUB20000;PRIHI 5> SftUE 
SYSTEfl - DISKPT ft 

13070 X=3:Y = 13:GOSU0Z0000;PRlNr 6> INDTfi 
ST SYSTFMOPSTILL ING" 

13098 X=9:Y = 14:GOSUB20000:PR1NT '0> H0U£D 
MENU 

13100 X-8: V:20:GOSUB20000:PRlNTSTi 

13101 X=12: Vr22: GOSUB20800: PRINT T REUJ 1 
NDTR-ST UflLG 0-6 " 

13110 GETQt ; IFH1= THEN131I0 

13120 Qx-UnUntl: IFQx --0THEN10200 

1 31 30 0NQXG0T01 3200 . 1 3678 , 13170 . 1 3600 . 1 3 

100.13920 

13281 REP! JNUTflSTNING flF SYSTEP1ER 
1 3203 REfU"** xxxxxxxxxxxxxxxrxixxxxxxzx 
!32ia PRINT fCl.R] :X=7: Y =3: GDSUB200B0: PR 
INT' T REU H 2SPC 3 INDTA5TNJNG f9F SYSTEHC 2SP 

cr 

13215 X=0:Y=20: GOSUB20000: PRINTST* 
13220) X=7:Y=6:GOSUB20000:PRIHT' flNTflL RCK 
KER C MAX. 255): " 

13222 X=30: Y=6: GDSUB2000B: INPUTREx 



43 



13230 X=7 = Y=?: GOSUB20000: PRINT ANTAL HEL 
GARDERINGERC2SPC3: 

13232 X=30: Y=7: GOSUB20000: INPUTHEX 

13210 X - 7: Y =8: GOSUB20000: PRINT ANTAL HAL 

UGARDER INGER : 

13212 X=39: Y=8: GOSUB20000: INPUTHAX 
13250 GflXTHFx«|IAx 
13252 IFHEX-0THEN13300 

13255 FORI =1 rOHE*:F0RI I =1 TOINT ( TREx/10 3+ 
.99J 

13ZB0 X-7: Y = IP:GOSUB200B0:PRINT r REU 3 IN 
PTAST HEL GARD! RING NR.'TTCUJ 

13270 X =7: Y=l 1 : GQSUB20000: PRINT tREU] KU 

PON NR. "II rcui " 

13271 X=22: Y~t2: GOSUB20000: PRINT TS/Jlt 1 
0S/*][S/KJ 

13230 X=0? : Y-Z7.:6OSUB20B80:PRlNr ( 25SPC] 

• GOSUB 13008 
13230 X=07; f=?Z;GO5UB20000;PRINr f REU3 I 
NOTASTN ING t OROEN J/N " 
13291 GETQ*; !FQ*= THEN13291 

13232 IFQ4<>- J AND04O' N' THEN13231 

1 3233 IFQi = "N" THENX=21 : Y = l 1 1 GOSUB20000: P 
R1NT r 12SPC] : TEi = : G0T01328B 

1329*1 IF0*="J THENHEtf IJ-HEitntTEt:X=21 
Y = l 1 : GOSUB20000: PR I NT T 12SPC3 ' 
13295 X =07: Y=22:GOSUB20000: PRINT' C25SPCJ 

13299 NEXT 11.! 

1 3300 REHXWXXWXXXXXXXXXXXXXXXJCXXXXXX*** 

13301 REM HALUGARDERINGER 

1 3393 R£flx*xx*xxxxxxxxxxxx*xx;xxxxxxx;*xx 
133&S IF HAX-BrHrNt3000 

13310 : FORI MTOHAx: FOR] 1=1 TOI NT CCRE* 

✓ 10 3+0.99] 

13320 X=7' Y = I3: GOSUB20000: PRINT T REU 3 IN 
DTAST HflL UGARDER I NG NR. I'TCUl '' 

13330 X=7: Y = M: GOSUB20000: PRINT' f REU3 KU 

PON NR.~irrcu3 " 

13331 X=22; Y--1 5: GOSUB20800: PR INT* f S/J3C 1 
0S^3CS/K] 

13340 X=07: Y=22: GOSU820000: PRINT [ 25SpC J 

' GOSUB 1 3800 
13350 X=07: v=22:GOSUB20B00--PRINT" TREOJ J 
NDTflSTNlNR I ORUEN J/N " 
13360 GETntiUU*- THEN13360 
13370 IFQ*0 1 ANDOtO* N" THEN I 3368 
13330 LFQ* = N ri(LNX=21; Y = M: GOSUS20000: P 
RINT T12SPLI * TC*= -GOrai3310 
13330 If0ia J nirNHfW M-HrHU 3tTE*: X=21 
=Y=14:GOSUB20000: PRINT f 12SPC3 
1 3335 X -07 : Y - 77: GO«UJB20000 : PRINT T 25SPC ] 

13339 NEXT 1 1 . 1 : HA -0: GOTOl 3000 

13100 RE|1***« *■ rwxx*xxxxxX.xxxx<XXX<XXXXXX 

13101 REH SflUt DISKETTE 

13103 REn***"*""*""******""***** 

13105 GOSUB20608 

13410 X=06: Y=22! GOSUB2B080 : PR I NT" I REU 3 I 
NDTOST FILE NOUN * 

13420 X=25: Y=72:GOSUB2B000: INPUTNA* 
13430 GOSUB20G00:OPtNl .9.2 . B0: *Nfli+" .S 
-U 

13440 F*RiNr««l /RES* 
13141 PRlNTiM .HE* 

13442 PR I NT« 1 .HA* 

13443 PRINTBI ,GA* 

13450 IFHF-X >0T HENFORI =1 TOHEx: PRINT" t .HE* 
f I 3: NEXT 

13455 IFHAx^BTHENFORI =1 TOHAx: PRINTnl .HA* 
fl 3: NEXT 

13460 CLOSE1 : GOTO13008 

13470 REn*«*»"*"*xx«xxxxx:*xx;«xx;*xx3s 
1347V REH LOAD 0 1SKETTE 

13473 REM**" XTXXXXXXXXXXXXXXXXXXXXXXX? 

13475 GOSUB20600 

13460 X=06:Y=22:GOSUB20000:PRINT fREUj I 
NDTAST FILE NAUN 



13490 X^25: Y ~- 2 7 : GOSUB 20000: INPUTNL* 
13510 GDSUB2PB 00 : OPEN 1,9.2.0: *NA*+ ,S, 

R ' 

13520 INPUTnl ,REX 

13521 INPUT"! .HEX 

13522 INFUTw 1 ,HAX 

13523 INPUTnl ,GA:< 

13530 IFHE* ^0T HENFORI = 1 TOHEx: INPUTnl .HE* 
f I 3: NEXT 

13540 IFHAx >0T HENFORI =1 TOHAx: INPUT* 1 .HA* 
T I 3: NEXT 

13550 CLOSE l: GOTO 13000 

13600 RE[1xxxx*.xxxxxxxx*:kxxxxxx.«xx:x*x*xx 

13601 REH SAUL KASSC.TTE 

1 3603 REf1*«**xxx;xxxxxxxiixxxxxxxjc;xxxx<;xx 

13605 GOSUB20608 

13610 X=06: Y=22; GOSUB20000: PRINT f REVJ \ 
NDTAST FILE NAUN 

13620 X=25: ^-22=6050020000; JNPUTNiA* 
13630 GOSUB70600: 0PEN1 .1,1, NA* 

13640 PRINT «•! t REx 

1364 1 PRINT"! ,HEx 

13642 PRINI «M . HAX 
13613 PRINTnl ,GAx 

I 3650 IFHr* >0 n IENFORI =l TGHE*" PRINT" l .HE* 
f I 3:NEXT 

13655 IFHfl«)0rHENFORl-ITOHAx:PRI^T»l .HA* 
f I ):NEXT 

13660 CLOSr I : GOTO 13000 

1 3670 RCrix***i***x;xxxxxxxxxxxxxxx;*xx**x 

13671 Rffl LOflU KASSETTE 

13573 Rcr>****.« xxxxxxxxxxxxxxxxxxx^xxxxx 
13675 GOSUB20fi00 

13680 X=06: Y-22: G0SU8 20000: PR I NT f REUJ I 
NOT AST FILE NAUN " 

13630 X=25: *-??: GOSUB20000: INFUTNA* 
137IR GOSUB70bB0: 0PEN1 . I .0 .NA* 
13770 [NFUr«l , RE* 

13721 INPUTnl, HEX 

13722 INPUT it 1 ,HAx 

13723 INPUTnl .GAx 

13730 IFHC-*>0IHENFOR3 =lTOHfx: INPUTnl ,HE* 
t I 3:NEXr 

13740 I FHA'*'- >0 T HENf OR 3 ■ 1 TOHAx * INPUTnl ,HA* 
r I 3: NEXT 

13750 CLOSFK GOTO 13000 

i 3800 REM.«*x *» xxxxxx*xxxxxx»xxxxx*xx*xx 

13801 REH SUBROUTINE I NDTAST GAROERING 

1 3803 REf1x*x*x*xxxxxxxx»xxx*x* xxx^xxxxx 

13805 Y = ll: IFHAMTHENY = 14 

13810 X=21 : GOSUB20008: INPUTTE* 

13B2<? IFUEHCTI 4l>10THENrE*=LEFT*CTC*,103 

13825 IFIlA-l I HENG0SUB1 3050 

13830 RETURN 

1 3850 REfl xx.rxxxxxxxxxxxxxxxxxxxxxxxjtx* 

13851 REH SUB. KONUERTERING AF HALUGflRD. 
1 3853 REH xxxxxxxxxxyxx*xxxxxx?!xxxxx3(xx 
1386C F0RZ=1 IBLENCTEt) 

13870 IF II " I THENA*=LEFT*CTE* , 1 i 

13880 C*--niD*rTE*.Z. 1 3 

13890 IFEi-Atf HCNDi=D*-i-"'A" 

13900 IFC*OA*rMCND*-0** B" 

13910 NEX TZ: Tf_* =0*: 0* =" " RETURN 

1 3920 REHxxxjxxj:j;j[XiJtxxxyj!jt>Xxx>xx*X3txx 

13921 REN IHUTAST SYSTEHRCKKE 

1 3923 REHTx^^'CJ'xxxxxxxxaxxxjtxJcxxxxxXJtxx 

13930 PRINT I CLR1 : X -7: Y=3: GOSUB28000: PR 

I NT T REU 1£ 2SPC ] I NDTAST SYSTCPIOPST ILL I N&X 

2SPCJ 

13331 X=0: Y^20:GOSUB20000:PRINTSTt 

1 3332 FORI =1 1013 
J3S33 ERx^REX 

13934 X=7:V=5i-I:GOSUB20000:PRlNT KAHP NR 
- If. INPUTREtt I 3: NEXT 

13936 X=7: Y=27: GOSUB20000: PRINT I REU ] R£ 
KKER BCREGNf S 

1 393B FORI = 1 TOREx: HE = 1 : HA = 1 : FOR 1 1 = 1 TO 1 3 



1 IFLENtRFtf I I 3 ) = lTH£NEP*t I J = ER*( I 3f 
REif II 3:NEXni . I : GOTO1020R 
13912 IFLENCRFtCI J 3 1 =3THCNLR$ ( I )-ERUI )* 
"1D1(HE*(HC 1. 1 .1 3 1 HE 'HE* 1 . s NEXT I I . J:GOT01 
1 39*1-1 IFHlDtf I in* C Hft 3 . 1 , 1 THENERtf I 3 = 

ER«C I HLEFTtf REM 113.13 

13916 rFPiID4limiCHf»).I .1 )= B THENER4C I 3 = 
CRM 1 3 + RIGHItf RFiUI 3.13 
13910 Hp=MP+l:NE)<TII ,\ 
I 3990 GOTO10700 

READY . 

KONTROLSUfl FOR TIPSPROGROM 3 
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216 
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t95 


11 160 


204 
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123 
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52 
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123 
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99 
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14 


13030 
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130^0 


57 


13050 


67 


13060 


?6 


13070 


I 13 


13090 


246 


13100 


56 


13101 


76 


13110 


227 


13120 


186 


13130 


S3 


13200 


123 


13201 


53 


I 3233 


123 


13210 


180 


13215 


56 


13220 


St 


13222 


28 


13230 


154 


13232 


1 9 


13240 


Z05 


13242 


16 


13250 


105 


13252 


189 


13255 


66 


13260 


196 


13270 


248 


13271 


251 


13290 


205 


13290 


103 


13291 


237 


13232 


179 


13293 


253 


13294 


52 


13295 


18 


13299 


137 


13300 


123 


13301 


4 


13303 


123 


13305 


214 


13310 


20 


13320 


25 


13330 


251 


13331 


254 


13340 


205 


13350 


103 



13360 


234 


13370 


176 


13380 


253 


13390 


47 


13395 


10 


13399 


229 


13400 


123 


13401 


91 


13403 


123 


13405 


133 


13410 


223 


13420 


69 


13430 


184 


13440 


177 


13441 


167 


13412 


163 


13443 


162 


13450 


254 


1 3455 


242 


13460 


135 


13470 


123 


13471 


76 


13473 


123 


134 75 


133 


13480 


229 


13490 


69 


13510 


115 


13520 


157 


13521 


147 


13522 


143 


13523 


142 


13530 


234 


13540 


222 


13550 


136 


13600 


123 


13601 


98 


13603 


123 


13605 


133 


13610 


229 


13620 


69 


13630 


40 


13640 


177 


13641 


167 


13642 


163 


13643 


162 


13650 


254 


13655 


242 


13660 


136 


13670 


123 


13671 


93 


13673 


123 


13673 


133 


13680 


229 


13690 


69 


13710 


39 


13720 


157 


13721 


147 


13722 


143 


13723 


142 


13730 


234 


13740 


222 


13750 


136 


13800 


123 


13801 


169 


13803 


123 


13B85 


191 


13910 


162 


13620 


231 


13825 


44 


13830 


142 


13850 


1 13 


13851 


135 


13853 


113 


13860 


51 


13870 


241 


13880 


212 


13B30 


97 


13900 


20 


13910 


77 


13920 


123 


13921 


83 


13923 


123 


13930 


230 


13331 


56 


13932 


181 


13933 


42 


13934 


233 


13936 


81 


13938 


149 


13340 


223 


13942 


227 


13944 


247 


13346 


243 


13948 


98 


13990 


124 
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soger so 



100 skildpadder 
mmerferieophold 
hos "danske skolelaer er e . . . 




I ferieperioden har vi fornojelsen af at give 
skoleterere landet over en chance for at stifte 
neermere bekendtskab med den berwnte 
VALIANT TURTLE. Betingelsen er blot, at De har 
adgang til $n af de gangse skolecomputere. 
Ring og her nasrmere. 



Afd. for 



-TKOL€DPITfi 




Lae§erne$^ 



Til Commodore 64 

Diskrens 

Dette program er udviklet over en peri- 
ode pa ca. et halvt a/ neermest ved 
»knopskydning«. Del started© med el 
program der kun kunne slette filer og 
er nu udbygget til et arbejdsredskab 
der kan folgende: 

1) Directory disk. 

2) Skrivebeskytter filer. 

3) Sletter filer. 

4) Redder slettede filer. 

5) Formaterer disk. 

6) Rette ID nummer og navn. 

7) Rette Fil navn. 

8) Andre disk kornmandoer. 



VM1985 



Dette program er beregnet til at holde 
styr pa Danmarks pulje til VM 1986 i 
Mexico. 

Programme! kan modtage data fra 
de enkeite kampe og omseette disse i 
en stilling i puljen . Endvidere e r det mu- 
ligtat foretagesimulering af kampe og 
disse effekt pa stillingen i puljen. Pro- 
gramme! er ogsa 1 stand til pa hvilket 
som heist tidspunkt at undersege, om 
Danmark stadig har mulighed for at 
deltage i VM , dette gaelder selvfelgelig 
ogsa under simulering af kampe. Pro- 
gramme! kan ogsagive en oversigtov- 
er spillede og endnu Ikke splllede kam- 
pe. 

Hvis man mister sin data-dll kan 
back-up data-nien, som laves nar pro- 
gramme! afsluttes, bruges ved midler- 
tidigt at aendre navnet i modul 12000. 
De! er vigligt, at man ikke »afslutter« 
nar data-filen er i uorden, idet back-up 
fllen laves ved at kopiere den originate 
fit. 

Programmets opbygning I moduler 
gar del lettere at indfore de aandringer 
man har lyst til, f.eks. at lave modul 
1 2000 og 1 3000 om til at kunne bruges 
med bandoptager og ikke. som nu, 
med diskette-station. 




Til Commodore 64 

Regnetime 

Programme er skrevet til skoleborn 
fra ca. 2.-6. klasse afhasngig af. hvilken 
svserhedsgrad dervaalges. De! bestar 
af 10 forskellige typer opgaver, men 
kan nemt udvides. Opgaveme valges 
v.h.a. computerens ttlfeeldighedsge- 
nerator, og inden 1or hver enkell type 
opgaver varieres talstsrrelser og nav- 
ne, ligeledes v.h.a. tlifaaldighedsgene- 
ratoren. Opgavetype og lalstorrelse er 
samtidig afhaengig af, hvilken svaer- 
hedsgrad der er valgt. Ved afslutning 
kan man se nvor godt (eller dariigt) 
man har klaretstg. 



Til VIC-20 

Morsealfabet 

Man sk river en meddelelse og trykker 
pa RETURN. Meddelelsen kommersa 
ud pa morsesprog. Man kan ikke bruge 
grafiske tegn. komma eller punktum, 
men man kan godt bruge tailene. Nar 
meddelelsen er »morset«, kan man fa 
den med lyd.pa. 

Det er klogt ikke at taste over 48 ka- 
rakterer. 




Forklarlng 

60-210 
220-280 
300 
310 
320-360 
400-420 
430-490 
500-1470 
19001940 
1960-1970 
2000-2260 



til programlinierne; 

Opstart-navn-svserhed- 
Valg af opgavetype. 
Vis opgaven. 
Test af losning. 
Rigtigt svar. 
Slut eller forfra. 
Atslutning. 
Opgaver (subrutiner). 
Tilfaeldige tal. 
Tilfaeldige ubekendte. 
Butikker-varer-navne, 



Quick Shooting 

El spil, hvor man skal veare hurtig pa 
flngerne. Man har (helt til venstre) en 
raket, som man kan bevasge op/ned 
ved hjselpafCRSR-tasten. 

Til hcjre kommer en red lirkant og 
hvis man ikke rammer den inden ca. 3- 
4sekunder, dar man. 
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OISKRENS 
I NDSENDT AF 
J0RN LONGHOpF 
JUELSIUNDEUE 1 1 
5200 ODENSE O 



10 REI1 "* HOUEDTIENU 

12 POKE53280.B:POKE5328I .0 

20 PRINT TCLRK GRN J*****""" 

uiumxixtittiixxvt PUR j 

30 PRINT r 3S/QK 2SPC3CS/Q3 t4S/Q3 [S/Q3 
t2SPC]CS/0K3 , ;PCH45/Q] C4S/QJ CS/QU2SP 

10 PRINT ICO] f S/OK2SPC3CS/OJ T.SyQ3 CS/' 
OJMSPCJCS/W I S/flU4SPCItS/C3]C2SPC]CS/Q 
1 rS/Q]C1SPCH 25/Cll CS/Q1 [S/QH4SPC3 
58 PRINT I CO] I S/OU ZSPCJCS/0 3 I S/QJ MS 
*U3 E2S/Q1C *5Spr H 3S/OJI 2SPCK 3S/QU2SPC1 

r s/an c 2sxQ.i r iS/^j] ■ 

60 PRINT rroi tS/T3]C2SPC][S/0] CS/Q3C4SP 
C3ESyTJ] IS/^I ( VfJ]l 1SPC ]t S/O] [ 2SPCK S/Q 

i is./tm«-spcir s/nirzspcjrs/QH ispc3CS/qj 

70 PRINT frOl f 3*5/0 1C2SPCK5/Q] [4S/Q] t 
S/Qlt2SPCKSrOK3SPC3f S^OU 2SPC ]£ S/Q3 C4 
SyQ3 f SyOK 2SPCJ[S/01 TIS/Q] 

130 PRINT f GRN 1<iiiishxki*»:xtx«h««mxx 
nnimiimiT ( CNJ 

131 PRINT T PUR K27SPC3*JELS0FT 94* TCN3 
135 GOTO510 

260 GOSUB6660 

201 PRIM! ri.THI UII5AJlf22&>C]rs^ir 

205 PRINT T-.RNJTREUKFO DIRECTORY! 8SPC 

r 



T RC;u I<r3> SKRIUCBESKYT TELSE 
TRrUKF5> SUETTE F I LERyURL . 
rRFUKF7> RFTTE FJL-NP-UNC 3SPC 



210 PRINT 
220 PRINT 
230 PRINT 

1" 

2-10 PRINT rRC'JKF2> FORNflTTR 01SKC4SPC1 

250 PRINT T Rl U I <F4> UISK KOIHIANOOC 4SPC 3 

255 PRINT' TREUKF6> RET ID NAUN/WR . t 2SP 
CJ 

257 PRINT TREUKF8> FIL REDDERt 7SPC H OF 
FJ " 

260 PRINT I LTBLUJt S/J H 22S/-*H S/K3" 

261 PRINT T 9SPC H CO 3 >SlUT 

270 GETftt* IFA* - T H EN27B 

271 IFAS = O'TNeNCc0SEl:CL0SE15:ENP 
280 fl=nSCffl*3; irAn330RA>l1BrHEN278 

290 IFP.M33THFNPRINT T CLR J * OP EN 15, 3, 15. 

I : GOSUB3120- CLOSE 15: SYS828: GOTO 200 
300 IFA = 134THTN1000 
310 IFA=I35TIICN3000 
320 IFP. = 13STHEN4000 
330 IFAM37THFN2000 
335 IFA=138THEN50O0 
337 lFA = 135T|*rNG000 
310 JFft = H0TlirN7000 
500 Prn *x* INOLACS DIRECTORY *" 
510 S=0:FORN=829TO971 '• RCflDD: S = S+D 
520 P0KEN.0: NEXT ! IFS01957BTHENPRINT FEJ 
L I DOTFi I : ENL1 

540 DATA 169.1 . 32 , 1 95 . 255 . 1 69 . 36 , 141 
550 DOTH 210,3.163.16.111,241,3.169 
560 DATA I . 162 .9 , 160 .0 ,32 , 1 86, 255 . 169 
570 PAT* 2.162\240. 160.3.32. 189,255 
580 DATA 32.192.255.169,64.32.144.255 
590 Dfirn 162. 1 .32.196.255.32.114.255 
600 DATA 32.207.255.32.207.255.32.207 
610 Onm 255.32.207.255.201.0.240.58 

629 UnTfl 32.204.255.32.228.255.201,32 

630 Dflin 208.3.32.196.3.162.1.32.198 
640 DATA 255.32.207.255.169.32.207.255 



550 DATA 72. IS?. 170. 104 .32,205,199.169 
660 DATA 32.32.210,255,32.207,255,201 
670 DA TO 0,208.3.169.13.32,210.255,76 
680 DATA 115,3,32.210.255,76.162.3.169 
690 DATA 1.32,195.255.32.204.255.169 
700 DATA 204.133.178.96.32,223.255 
710 DATrl 201.37.208.249.96 
730 GOT 0200 

999 REn SKRIUEBCSKYTTFLSF t« 

1000 PRINT tCLRJT REU3SKRIUEBESKYTTELSE - 
ERA DOS 2.1/2.5/-2.6 f OFF I 

1020 TVPtm- SCQ -TYPt^ PRG 

1030 tVPiC3i= U5R ! TYPi- REL':5E-1 

1040 CLOSE 15. UPEN 15,3.15 

1850 PRINT T YEL I MOIS DISK ER I FLOPPY - 

TRYKC2SPC1W TJRN> 'PRINT [ LTBLU 3 
1060 GETA* f If ft*OCMR*f 13HHEN1860 
1070 PR IN T* 15 , I 
1080 GOSUB1650 
U1B CLQSX3*-OFEN3,8.0, "V 
I 128 GETp3.X1.V1 
1 130 GEr*3.X*.Vi 
1 140 GE I»3 . X* , v l 

1158 PRINT lOIR$M8-rx*> VI; ! 

1 160 FORI =1 r023:GET«3.X*.-PRlNTX4; : NEXT 

I 170 GET«3.X1,V1 

1180 PRINTXl;vi.CL0SC3:PRINT 

I 190 IFXIO 2 60 TO 1 220 

1200 IE 1*4 - * r HENSP-l8:G0TO1238 

1210 IFY«* r THENSP-32:G0r01230 

1220 PRINT KUN T OR DOS EFTER U 2.1 E GOTO 

200 

1730 INPUT FU NAUNf 2SPC1«T 3CU] ' :nUi 
1240 IFLrNMU* K 16TMENHUi T4Ui> « :G0T012 
10 

1250 CLOSE3:0PrN3.8.3. o 
1260 PRINMI5. UI ,3:0;SP;SE 
1270 EH~8 

1288 FORI "2707 1 ?«32STf P32 

1290 PR IN Tt* 15 . B P l'3M 

1300 GO ( 3UB1620: tYP-X 

1310 IFfTYPANOI27)-:0 THEN L550 

1320 T r'pl - TYpt f XAND7 1 

1330 GETai.Xi.Xi 

1310 NA«" : MnTCH = l 

1 150 FORJ-1 1016 

1360 GOSUBl620-NAi=Nn*+Xi 

1370 IP HATCtl>=0THEN1420 

1 380 24-MID4CHU4 . J . 1 ) 

1390 IF IS- * THEN MPiTCH = l : GOTO1420 

1400 IF Z*= ? THEN 1420 

1110 IF 2*<>XiTlirNnATCH=0 

1120 NEXT 

I430 IF flATCll 0 THEN 1550 

1440 PRINTEHR* f 34 JNAtCHRtf 34 ); 

1450 Xi- IF rYP<129THENX*= * 

1160 l\~ I tf Tr-pAN064THFNZt= < 

1478 PRINTX4 I t'P* Zt; 

1188 IF TYP^l29 THFN PRINT: GOTC1550 

I490 PR I NTT OCT 75 1 T t'CL H RTU lflENDRES <J7N 

HOFFJfLTBLLM 

1500 GLrX4:lfXt- N I MEN K 550 

1510 IFX*<> I THEN 1500 

1520 CH=l: rYprYP«64-2»rTYPAND64 3 

1530 PRINTnis, B-P : 3: 1 

1519 PRIN'IoJ.l liRSCTi'Pl: 

1550 PRINT Tfifll AQ I f CO I X* 

1555 NEXT 

I560 IFCIirHFMPRlNNlS. U2 :3:0;SP:SF. 

1578 PRINT-I5. B P :3:0 

1500 E05UB 1620:SP-X 

1590 GQ5UBIG70- SE -X 

1 600 IF SP>0|UFNi260 

I610 CL0SE3:EI OSF 15:GOTO200 

!620 GrU3.Xi MX*- THENXt -CHRit 0 1 

1630 x^nscrxv i:Rr TURN 

1650 lNPUr«15.TN.EM*.ET*.ESi 

1660 lFFN-0THrNFN=r f ST )(1NDC 191 11: Ell*- DI 

SK FE1L 



47 



1678 irCN>Oriil NPRINTFN' . mi". FTi . ESi 

-CLOSri5:GO|I)?R0 

1690 RFTURH 

1900 REM «** ' itRlirtTFR U]SK Wi 

7HPI0 PR IN ' rriKirrNI i r REUTt UMTlAUUrtRSE 

Lir 2CNJ 

2010 Pi • rCRNJUENNf RUriNC UIL SLETTE AL 

lE PRORRonrtrR »r cnt : gosub212B; print T3cn 

1" 

2010 INPUT I Rl U II LTBLU1DISK NflUNI OFF J " * 

i 

2011 print t rNirra.i0NSKF5 forhotering n 

CO rD/tTR. <J/N>' 

2042 Gf. rSU*-' TI'^U*- THENZ042 

2043 lFSUi= ) IICN2060 

2044 IFSUi- N' THENBi- : PR I NT TftBC 31 J TCO 
INI" J :GOTD2090 

2060 PRINT I Hl'J IL LTBLUH 2CN1DISK JDl 2SPC 
1COFFJ : 

2070 Bi - INPUTBi 

2080 Bi-LfFrifBi.2J 

2090 OPFN15 f 8,l5:GO5UB34Z0 

2095 OPFN1 -3.r:.-PRINT»l . M-ui CHR*C81 3CHR 

tlBXMRftr I JtMRif Z55):CL0Sl r l 

2100 PR IN T* 1 5 , N0: ni . 34 

2110 &OSUn3420: CL0SF15: GO1O200 

2120 FORI - 1 rOt-ENCP* PRINTMIDitP* , I , 1 D: 

2 1 30 POKE'H 296 .15: FQRH ^240 TO250S T EP5; POK 

E54296.fi: NEXT 

2 1 40 FORD ■ I m J 00; NEXT : NEXT ; FORD a 1 101 00: N 
EXT: RETURN 

3008 0PFN1 5,3,1 'i 4 1 * GO5UB3420; OPEN 1,8. 
3. «■ 

3018 PRINT in Rjxxxxxxxxxxxxxxxxxxxxxxxx 
m*itim unit 

3020 PRINT I GRN3TRYK 1 T REU] JTOFFDfl'FOR S 
LETNJNG - FLLFR C REUJNt OFF ]E J : PRINT'T LT 
BLUV 

3038 PRINT *x»«*«i«»xitx»x«3(3[j:*xxK.txxxxx.» 

3048 2i=CHRi(81.T,i8:5=l:R=0 
3080 PRINT«1S . Oi: 3;D;T;S 
3870 PR1NT-15. BP: 3:Z+32*R 
3080 GET"l.fii:IF At= T||fN 0*=2* 
3030 IF flSCffVH<I29 THEN 3190 
3108 FOR K=5t-32»R TO 20-»32xR 
3110 PRINTM5, B-P: 3;K 

3128 GETM.fl*. IT A4= THEN PRINT T REUK 
OFF1 : : GOTO 3140 
3138 PRINT Oi ; 
3140 NEXT 

3150 PRINT! OB [ 20 Y T GRN H REU 1SLETTEST OFF] 

t REU.I ?[ OFF 11 CUTE L T BLU] " ; 
3168 GETOi: IFrtiO 1 AND f»tO" N THEN316 

e 

3178 PRINT fH 

3188 IF f\\z* \ then GOSUB 3280 

3138 R -Rt IMF R<9 THEN 3060 

3208 PRINT«IV B Pi 3.0 

3210 GFTnl ,n* IFfli^ THENrti "2* 

3220 T-nSCfnil:IF T-0 THEN PRINT TCNIIYE 

LJSLUT Prtn U I RFC TORY . t L 1 BLU I ?GU10 3320 

3238 PRINT b 1 5 . B-P; 3i 1 

3240 GFTM ,f»i . lFfH = THENfii-Zi 

3250 S-OSCTOi) PRINT:PRiNT T GRN m*T 2SPC 

1NY| 5POR ; : : NU-T: GO5UB3490: PRINTNi; 

3760 PRINT IFIBT20 1; NY SEKTOR i ::NU~S: 

&O5UB34.90: PRINTN*: r 2<iPC J * » * ' ■ PRINT I LTB 

LUj 

3278 R-0:GOTOi868 

3280 PRINTnlS. B P: 3:5-'32xR-3 

3298 PRINT Bl .CKRifB li 

3300 PRlNim. U2: "3:D; T;S 

3318 GOSUB3420: RETURN 

3320 CLOSE 1 

3338 PRINT I PUR ]T REU ]UflL I OER DISK ? - J 

m 20SPCH orn 

3348 GET U*.|h U!*= J THEN3370 
3350 IF Ui^ THEN 3340 



3360 CLO^C I5.GOTO200 

3370 PRIN T ; PR INT r GRN] T REU] UAL IOERER DI 
SK r OFF] 

3388 PRINT fl I0LU] -PRINT«I5. U 
3390 GO9UB3420.CL0SE 15 
3408 GOTO200 

3478 IMPUTnlB.ER.FRi.TR.SE 

3430 IF ER=0 THFN RETURN 

3448 CLOSE 15:CLOSE 1 

3450 PRINT : PR IN r TPUR3DISK FEJL: : 

3460 PRINT ER;FR»:tr;SF:PR1NT 

3478 GOTO200 

3490 N* ; f1IU4fSTRlfNU),2] 

3508 IF IXNTN4U? THEN N* = 0 *N* 

3518 RETURN 

1000 PRINT TRrUII YEi_]**ra«x RE.TTE FIL- 
NAUN RUT1NE wi«v«x***[OFF.HGRNl 
1028 INPUT TRruiGrtfinFLT N^UN-TOFFJ : fli 
1038 PRINT I L I BLU1 

1040 INPUT IREUINYT NO W»SPC ] i I OFF i ' : Bi 
1050 OPEN I 5,3,15. I * GOSUB 3420 
1060 PR I N I <• I 5 , RB: B* = 0» 
1070 GOSUB3470rt LO^riS: GOTO200 

1399 REM «" IJISK KonnftNoa 

5008 0PEN2.8, I V C* 

5020 print r Rf i -> iKonnnNDO ?roFFi ; 

5030 PRINT IRPJ1*- i fEOl 1 T OFF 1 : 

5040 GE TBi II TJ4 - THEN5040 

5050 PRINT Bii IPBi=CHRt( 13 1THEN5870 

5060 Ci Xi*Bi GCIIO503B 

5070 PRINT«2,Ci 

5080 PRINT I RE<J1 

5090 GET«2,ni.PRINTrti:: IFfll < >CHR*T 1 3 1GOT 
05850 

5100 PRINT f OT I .1 :CLOSE2:GOTO200 

"5999 REM xxx RF T ID NflON/NUIIflt R m 

6000 PRINTCHRiC 142): PRINT r GRN] 

6020 PRINT TCLRjrREUl*TKT***t« NflUN OG I 

0 AENDRING n«»t«mir OfF Jl 2CN1 

6030 PRINT rUGLUMNDSAFT UENLIGST DISKE 
TTEN 

6048 PRINT 

6050 PRINT OG TRYK Pf^fl EN TftST I I*' 

5068 GET ft*;(fft*= THEN6060 

5070 OPEN! 5,8.15. I ' GOSUB3420: 0PEN3 .8 , 3 

, "»'' 

6080 PRINInl5. Ul 3 0 18 0 

6890 PttIN!ul5 . B P 3 144 

6095 N*= 

6180 FOR I -0TOI5 

61 10 GE T"3 ,rii 

6128 N* "Nt »n* 

6130 NEXT I 

6148 GETo3.Bi.C».U*.I2i 
6150 I04-Ui'I2i 
6160 print:frxni 

6178 PRINT r R| UKPURlGflfinCLT DISKNflUH TO 
FFJ: :Ni 

S175 PRINT f r*FL JC RE U 1NYT NRUN?r 35PC] <J/N 
>[ OF F }[ L TBLU 1 

6180 GETSYi. IFS>J^= THEH6180 

6182 irS'Jt-O I «ND5Ui<> N lliFN6198 

5185 IFSUi~ I THEN6189 

6 IBS IF^Ut- N rnrN6190 

61B9 [NFIJT N Y | Nfiy|ll7$PC|- ;N» 

619B II Lf NIMi 1MRIHEN6230 

6200 TORI t I HTNi St I TCJI6 

6218 Ni Nl 'CNRir 168 1 

6228 NEXII 

6230 PRINT T C*N If GRN 1 

6248 PRINT I R| U iGflflflELT ID -n^FRKF.t OFF 1 : 

1 iri 

6245 PRIN! T YCUt RCU1NYT WRKEC ZSPC 3 <J/ 
NHQFFJTL TBLUI 

6246 GETSJi leSUi"* THEN6216: TFSUiO ' J _ A 
NOSOtO'N THIN624J6 

6247 IFSUi- I TIIEN6250 

6249 IFSUi- K THEN6270 

6250 INPUT NY I ID-nflERKEf 2SPCJ: : ID* 
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6260 IFLCNf 104 K>2 THEN6250 

6270 A4 ~N4 • B4 • C4 + ID4 

6280 PRINI*15. 8-P 3 144 

6290 PR[Nr«3 .A4; 

6300 PRENIk|5. U2 3 0 18 0 

6310 CL05F3 

6320 PRINr*15, I 

6330 G0SUB3-i2B:CLCSE15;PRINT TLTBLU] ;G0 
TO200 

6580 RI M 'ONE NUfWFR 1 «" 

6590 PQM'^rm .15 
6600 PQlit'&l?/ .13 

6610 PUKF.51273. 1 1 2; P0KE54272 , 200 
6620 POKE5«12/6.33;F0RTX*!TO?5:NEXT 
6630 P0KF51 276 . 30 : FOR 13-1 T04 : NEXT 
60^0 RF" xk* l ONE NUtWR 2 «« 
6660 P0KF51296.15 
6670 POKr5427/.10 

6630 F0KF51273 .3?: PQKE54272 .162 
6690 P0fei:*3l27O,33:r0RrX = l rO600:NrXT 
6^80 POKr < 542?6 1 B8:FORrX-ITO50: NEXT 
6710 RFTURN 

6993 RCW *« " II RI.DDER ««« 
7000 PRINT I CLR] 

^020 PRINT I SAJH S/CJT 13S^xU S/I ] 

7030 PRINT T >/BH GRNK RFUKF1 >f 2SPC3U1S 

ALL E FILCRrOFFII LTBLUirSr-l 
7040 PRINT [ SAWVTJt l9SV*ir S/Il 
7050 PRINT I S/B|[GRNJ[RFU1<T3H2SPC3RFD 

EN DEL-FILrOFFULrBLUKSx- | 
7060 PRINT TS/UU20S/CKS/I ] 
7070 PRINT rS/BUPURJ[RFU]<F5>i2SPC3 — 
SLUT - T OFF K LTBLU K S/-J" 
7090 rr?IN T I S/J US/*1[ I9S/CK S/K3 
7090 GCTCHt; [FCHt= THEN7090 
7100 CH-A5CfrH4 1; 1FCHO 330RCH> 135THEN703 
0 

7110 IFCH=133rNENGO9UB7I60 
7120 IFC"H = 134rHENG0SUB7<17e 
7 130 lFCH-L35rHFNG0SUB7918 
7140 GOIO702B 

7150 RTv.n "*« OIRECTORY DEL X** 

7150 PRINT T GRN J[ 2SPCJUISFR ALLE FILERME 

: ( LTBLU] 

7170 PRINT T33C/Y] 

7180 0PEN15.8.15. I - GOSU83420 : CLOSE i 5 

7185 OPEM.8.15 

7190 OPEN2.8.2, « 

7200 PRINT»l. 01:2.0.18.1 

7210 GETn2.NTi.NS* 

7220 IFNTl^ THENNTi =CHR4(B 3 

7230 IFNS4= THENNSi =CHR4[0 ) 

7240 NT=ASCCNT4 )! NS"ASC(NS*3 

7-250 FORJ=0TO7 

7260 GETB2,TYt: TY=ASC[TYt+CHR4.C0 33 

7270 NA4=CHR4C34}:GET»2.I4.I4 

7280 F2=0;FORI=0TOl5:GET«2.Iit IFIt=CHR*( 

160iANDF2=0THENNfti-NAitCHR*C34 ):F2 = 1 

7290 Nfli=Nfit-t-Ii 

7300 NEXTI:NA*=Nfl4+CHRi<34 3 

7310 FOR[=0TOB:GET»2.It:NEXTI 

7320 GET*2.I.B*,HB4.14,14 

7330 BL =256*ASC CHBi+CHR* C0 ) 1+flSC f LBi+CHR 
4(0] J 

7340- IFLENCNAi 3-2THCNJ =8: GOTO?420 
7350 IFTY=0THENPR1NT I 

7360 PRlNTRIGHTiC C3SPC3 *STR*C8L).43: f 

7SPC3' : LEF74(NA4-t- .18); C 2SPC3 * • 

7370 IFTY=BTHENPRINT DEL" 

7380 IF CTYAND7 3"l THENPR INT SEO" 

7390 IF (TYAND7 3-2THENPR INT "PRG ' 

7*100 IF t TYAND7 ) =3THENPR I NT "USR" 

7410 IF CTYAND7 1=4THENPR INT "REL" 

7<*20 NEXTJ 

7430 I FNT =BANDNS =255THENCL0SE2: CLOSE 1 : PR 
INT: RETURN 

7440 PR INT" 1 , UU2.0. NTJNS 
7450 GOTO7210 

7460 RET1 *» REDDER DEL *** 



7478 I NPUT T GRN J C 2SPC 3 F I L -NflUN: C LT0LU) '* 

7480 L =LEN (Nl Ji I FL < 16THFNN * =N*1-CHR4C 1 60 3 
:GOTO?480 

7490 PRINT TLFBLU3 t SAIJC 20S/C3C S/I 3 " 

7500 PRINT f S/B3C PUR3T REU]HUfiD UAR FIl- 

TYPEN ?COFF][LTBLU3CS/-3" 

7510 PRINT rS/B3[GRN][5SPC)<l> -> SEQC 5 

SPC3CLTBLU3IS/-3 

7520 PRINT rS/B3tGRN3C5SPCJ<2> -> PRGC 5 
SPC3C LTBLU3E S/-3 

7538 PRINT* rS/B3CGRNJ[5SPCJ<3> -> USRC5 
SPC3CLTBLU)tSy-3" 

7540 PRINT rS/S3[GRN][55PC3<4> -> RELC 5 

9PCKLTBLU3CS./-3 

7550 PRINT rS/J3C20S/x][S>4<]- 

7560 GETFYt: IFFY*= THEN7560 

7570 FT=flSCfFYt)-49: IFFT<1ORFT>4THEN7560 

7590 PRINT rPUR)C2SPC3CREU30KK2SPCJUENT 

ET 0JEBLIXC OFF 3 
7600 FT4=CHR4(I28tFT3 

7605 0PEN1 5 .8 .15.1': GOSUB3420: CL0SE15 
7610 OPENl .8,15 
7620 0PEN2.8.2. 

7630 0T4=CHR4f 18 3: OT = 1 8: 054=CHR4C 1 )i OS=l 

7640 PRINT-1 . Ul:2. 0.18.1" 

7658 GET«2.NT*.NS4:DI4= :F=0 

7660 IFNTt = THENNT*=NT*+CNR4t0 3 

7670 IFNS4 - TfiENNSt.=NSl+CHRtC03 

7660 NT=ASCTNT4):NS=ASCCNS*) 

7690 F0RI=er0253rGETii2.I4: IFI* = THEN I * ~ 

f«tCHRiC83 

7700 DI 4=DIi+I* 

7710 NEXTI 

7720 FORI=IT0237 

7730 IFniDtCDU.I ,I6 3=NiTHENP = I:F = l: 1=25 

7740 NEXTI 

7750 IFF<?eTHFN7848 

7760 IFNT=CANDNS=255THEN7?70 

7761 GOTO7810 

7770 G0SUB6S9H: PRINT C L TBL03C 2SPC lmxxx 
xxxxxxxxxxxxx* " 

7780 FR INT ' T 25PC3*E GRN JF ILEN IKKE FUNDET 
ICLTBLU3* 

7790 PRINT T 2SPC]XWXXXJWWX«XMW[4C 

7800 CL0SF2: CLOSE1 : RETURN 

7813 0T4sNTi:OT=NT!0SisNS*;0S=NS 

7820 PRINT*! , Ul: :2;0iNT;NS 

7830 GOTO76S0 

7840 Wlt=LEFTttDrt.P-43 

7B50 U24=NID4CDli.P-2) 

7860 WR*-W14fFTti-W2t 

7870 PRINT*1 . B-P 2 0 0 

7880 PRINT*2,HTt;NS«;URi; 

7890PRINT*1. U2: :2:8jOT:OS 

7891 GOSUB6590 

7900 PRINT rCI.RJf ±jmM$X# W Mn M***X* nBXKXji 

>>.»>:*» t 1 1 ..»»... 1 V y , » 

7910 PRINT T 2SPC1T GRNJFILEN :CPUR3":Ni'T 
GRN3ER GENSKABT I f " 

7920 PRINT TCN3I LT0LU Ixxxxytxxxxxxxxxxx** 

XXXXXXX XXXXXXXXXJKXXJtxyf 

7930 CLOSE2:CL0SEl:RErURN 
7940 PRINT TCLR3 :GOTO280 

READY. 



KONTROLSUM FOR DISKRFNS 



10 


150 


12 


37 


20 


186 


30 


11? 


40 


107 


50 


161 


60 


1B5 


70 


164 


130 


183 


131 


1 


135 


31 


200 


95 


201 


215 


205 


243 


210 


63 


22B 


193 


23B 


101 


240 


76 



49 



250 


68 


260 


140 


271 


169 


300 


126 


330 


130 


340 


129 


520 


222 


560 


12 


598 


222 


620 


3 


650 


67 


660 


59 


710 


243 


1000 


221 


1010 


53 


1870 


163 


1 120 


72 


1 150 


227 


1 180 


173 


1210 


43 


1210 


6 


1270 


109 


1300 


151 


1330 


H 


1360 


206 


1398 


234 


1120 


130 


1150 


5 


I 490 


5 


1510 


IBZ 


I 500 


71 


I 560 


60 


I 530 


50 


1 628 


243 


1660 


34 


1 388 


158 


2040 


37 


2043 


7 


2020 


129 


2095 


219 


2 1 20 


72 


3000 


196 


3030 


109 


3078 


20 


3100 


51 


31 30 


93 


3160 


253 


3190 


3 


3220 


146 


3250 


85 


3290 


245 


3310 


30 


3340 


78 


3370 


155 


3400 


27 


3440 


81 


3^70 


27 


3510 


142 



255 


77 


261 


129 


298 


54 


318 


129 


335 


134 


500 


V 32 


540 


231 


570 


165 


600 


9 


638 


217 


660 


253 


690 


223 


730 


27 


I B20 


188 


1050 


60 


1080 


89 


1 130 


72 


1 160 


213 


1 190 


47 


1220 


234 


1250 


53 


1280 


132 


1316 


182 


1340 


222 


1370 


25 


1400 


236 


1430 


140 


1468 


230 


1490 


79 


1520 


08 


1550 


33 


1578 


6 


1600 


159 


1630 


10! 


1670 


230 


2000 


172 


2041 


159 


2841 


226 


2000 


245 


21 00 


97 


2130 


172 


3010 


0 


3040 


255 


laea 


66 


3110 


32 


3140 


130 


3170 


30 


3200 


5 


3230 


6 


3260 


102 


3290 


120 


3320 


241 


3350 


172 


3380 


1 17 


3120 


42 


3450 


45 


3490 


85 


4 000 


29 



257 


74 


270 


102 


290 


185 


320 


131 


337 


136 


510 


92 


550 


172 


580 


24 


610 


211 


640 


70 


670 


16 


700 


132 


999 


14 


1030 


126 


1060 


126 


1 1 10 


51 


1 110 


72 


I 1 70 


72 


l 200 


45 


1230 


25 


1268 


111 


1290 


31 


1320 


131 


1350 


185 


1380 


228 


1110 


255 


1140 


133 


1170 


47 


1500 


20 


1530 


31 


1555 


130 


1580 


93 


1610 


104 


1650 


92 


1680 


142 


2010 


71 


2042 


101 


2060 


111 


2090 


139 


2110 


235 


2140 


240 


3820 


128 


3060 


253 


3090 


12 


3120 


20 


3150 


102 


3180 


177 


3210 


2 


3240 


226 


3270 


192 


3300 


254 


3330 


162 


3360 


91 


3390 


182 


3430 


153 


3460 


205 


3500 


177 


4020 


161 



4030 


119 


4060 


152 


5000 


94 


5040 


152 


5070 


93 


5100 


208 


6020 


146 


6050 


32 


6080 


112 


6100 


214 


6130 


203 


6160 


108 


6180 


100 


6186 


19 


6200 


232 


6230 


12 


6246 


222 


6250 


185 


6280 


57 


6310 


211 


6580 


102 


6610 


239 


6658 


103 


6680 


201 


6710 


142 


7020 


158 


7050 


182 


7080 


163 


71 10 


97 


7140 


82 


7170 


148 


7130 


38 


7220 


174 


7250 


136 


7280 


41 


7318 


86 


7340 


161 


7370 


IIS 


7400 


210 


7430 


284 


7460 


150 


7490 


113 


7520 


712 


7550 


146 


7590 


79 


7610 


198 


7640 


121 


7670 


27 


7700 


43 


7730 


169 


7760 


41 


7780 


226 


7810 


22 


7840 


131 


7870 


Z34 


7891 


97 


7920 


24 



4040 


22 


1070 


235 


5020 


145 


5058 


6 


5060 


239 


5999 


217 


6036 


214 


6060 


185 


6030 


57 


61 10 


136 


61 10 


177 


6170 


169 


6182 


50 


6189 


221 


6210 


239 


6240 


61 


6247 


12 


5268 


122 


6290 


151 


6320 


183 


6590 


51 


6620 


71 


6660 


51 


6630 


113 


6999 


156 


7030 


235 


7060 


215 


7090 


49 


7120 


102 


7150 


149 


7180 


132 


7200 


121 


7230 


172 


7260 


102 


7290 


47 


7320 


224 


7350 


217 


7360 


191 


7410 


188 


7140 


43 


7470 


3 


7500 


195 


7530 


230 


7560 


91 


7600 


103 


7620 


38 


7650 


28 


7680 


154 


7710 


203 


7740 


203 


7761 


89 


7790 


163 


7320 


133 


7850 


132 


7860 


255 


7900 


154 


7330 


165 



4050 


68 


4999 


148 


5030 


182 


5060 


27 


5090 


91 


5000 


125 


6040 


153 


6070 


166 


6095 


184 


6120 


165 


6150 


74 


6175 


231 


6195 


23 


6190 


156 


6220 


203 


6245 


10 


6248 


18 


6278 


5 


6300 


113 


6330 


156 


6600 


49 


6630 


233 


6670 


45 


6700 


74 


7000 


112 


7040 


158 


7078 


103 


7100 


153 


7130 


105 


7160 


251 


7185 


198 


7210 


217 


7240 


154 


7270 


70 


7300 


70 


7330 


165 


7360 


7 


7390 


192 


7120 


204 


7450 


83 


7480 


219 


75 10 


211 


7540 


200 


7578 


10 


7605 


132 


7630 


172 


7668 


30 


7690 


0 


7720 


237 


7750 


223 


7770 


151 


7800 


165 


7830 


91 


7860 


234 


7890 


HI 


7910 


22 


7340 


137 



OH 1996 




NDSBNDT AF 



■M- Xzk -\ >- R COER IKSB0R6GflDE 48 C 

1360 KBBENHflUN K 

Til Commodore 64 



10 PRINTCHR*tl12 j:REf1 UPPER CASE 
Z0 PRINTCHRM8 ); REH DISABLES rOfl. SHIFT 
30 POKE532B0,9:POKE53281 ,9:POKE646.7 
40 OINSK4C20 1 

1 0000 RZWkxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
10810 REf1"«*i INDLEDNING xxxx xxxxxxxx 
I 0020 REftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
10030 PRINT fCLR] ' 



10010 PRINT [REUK2SPCK0FFU3SPCHREUJC 
2SPCHOFF] tREUK 2SPC K C/*H OFF 3 CREUKS 
stK 2SPC3C OFFH 3SPC3C REUKS/^](3SPC]tOFF 
1 tREUKSz-tH 3SPC]CC^]CDFF3 CREUHS^C 
3SPC It C/*1t OFF 3!" 4-SPC H REUH SAC] [ OFF 3 ' I 
10050 PRINT rREUU2SPC]CQFFJt3SPCKREUK 
ZSPCKOFF3 rREUH7SPC3COFFK3SPC]tREU] C 
OFF3I S/-./3CREUU 2SPCH OFF] t REU II 2SPCHOF 
F] CREUH2SPCMOFF] [ REUH 2SPC][ OFF3 TRE 
UH2SPCHOFFjr 3SPC3tREU3tSA£3t 2SPC3C OFF 3 

10068 PRINT rrx»3tRE«Jl CC/Tt3COFF3 I REU3C 
S/*3 [0FF3CS/43 I REU 3t 25PC It OFF H C/x ][ RE 
Ul t OFF3rSAf3t REUU2SPC3tOFF3t 5SPC3CREUJ 
t2SPC][OFF3 f REU3t2SPC][OFF] tREUICZSPCJ 
t OFF 3 CRFU3t2SPC]COFF3 I REU 31 2SPC3C OFF3C 
ZSPC3tREU]t S/4H ZSPUrOFF3r S/J3 
10070 PRINT f REUK 2SPC3EOFF3 EREU3C25PC 
UOFF]f 2SPC3f REUJt 2SPC3tOFF][3SPC3[R£U3E 



50 



2SPC3EOFF3C5SPC3C REU JC ZSPCJC OFF J CC/^HR 
EU3E4SPC3EOFFJ EC/*3tREU3E3SPC3EOFF3CS/./ 
1 [REU)CSAtK2SPCJ[OFFUS/*r 
10090 PRINT ECy*3EREU3 E OFF ] t REU3 C OFF 
HS^JC2SPCJi:pEUK25PCK0FF][3SPC]i:REyjC 
ZSPC 3E OFF 3t 5SPC 3E REU 3C 2SPC ][ OFF 3E 4SPCJC R 
FUH2SPC]rOFF] EREU3lS/.£3[3SPC3tC/*3CQFr 
1 CREU3C4SPC3E C/iOIOFF] : 
10100 PP- INT rZSPC3EREU3C3SPC3COFF3t3SPC3 
T REU][ 2SPCH0FFJC 3SPC3EREUM 2SPC3COFF3E 5 
SPCJtREU][2SPC]tOFF]f 4SPC3E REU3E 2SPC J[OF 
F3 C REU3E 2SPC J t OFF ] [ REUJC 2SPC JC OFF 3 t RE 
U3C2SPC3I OFF3 f REU3E 2SPCJCOFF3 " : 
10110 PRINT T 2SPC 3E REU1C 3SPC3C OFF ]C 3SPC3 
FREU3C2SPC3fOFF3C 3SPC3CREUH 2SPC3£OFF3E5 
SPC3tRE<J3E2SPC3COFF3r 3SPC3E REU3ESy**J [OF 
F][S/,£] EREU3E2SPC3EOFF3 [REU3E 2SPC3COFF 
1 [ REU JC 2SPC 3t OFF 3 E REU3E 2SPC3E OFF3 " 3 
10120 PRINT r2SPCHC*3CREU] EOFF3ES//3C 
3SPC3E REU3E 2SPC JE OFF 3f 3SPCJE REU JC 2SPC3E O 
FF3E 5SPC3E REU3E 2SPC3E OFF] E REU U S/*]t 2SP 
C3EOFF3CS^]C 2SPC 3T C/*3t REUSE 3SPC 3E OFF3C 
SV*3 rCvx3EREUK3SPC3EOFF3CS/-c3- 
10130 IFDAO0 THEN 1 1000: REff HENU 
10135 Ofl=l 

10H0 PRlNTTABt 10 3"f CN3AF ANDERS NATTEST 
AD 

10150 PRlNTTABt 10 V f 2CN3 INSTRUKTIONER (J 

yfii i 

10160 GETfl*: IFfliT'J • THENPRI NT 'T SCU] CC UHT 
3Jt YELJxN) :FORI ■ I TO.700: NEXTI : GOTD10IB5 
10170 IFfl*0' N 'THENI0160 

10175 PRINT E 5CU3 CJ/C UHT3NE VEL 3 3 :FORI=l 
TO700:NEXri 

10180 DP- = 1: GO ro 18008 :REf1 P1ENU 
10185 FDRH=1T02 
10190 FQRV = HTO20STEP2 
10200 REflDDft4 

10210 X=2:Z = 1: GOSUB6B000:PRlNTDfl* 
10220 NEXTY 

10230 X = L4: Y=21: 2 = 1 : GOSUB6B000 : PR INT TRY 
K EN TflST": 

10210 GETnt-nrnt^ THEN10210 

1B250 X = H; Y=24;£=i:GO5UB60B00:PRINT 7UH 
r 3TRYK EN TflST T VEL3 : * 
10260 FORI -1TD700:NEXTI 
10270 NEXT I I 

10280 Dfl = l: GOTOI0000:REn P1ENU 
10300 DATA DEITE PROGRflPl HOLDER STYR Pflft 
□ANIIARKS 

10310 DFlTA POSITION I GRUPPEN TIL U|l 199 
6 IE7SPC3'' 

10320 DATA' MEX ICO . PROGRAHIIET flODTAGER R 
FSULTATER " 

10330 DATAFRA KAHPENE OG OPST I LLER EN S 
T ILL INGE 3SPC 3 

10340 DATA"! PULJEN. DERUDOUER ER DER piU 
L1GHEDC4SPC3 

10350 DATA FDR KAP1P-S I NUJLER 1 NG OG DEN AE 
NDRING.T3SPC3 

10360 OATfl SOn DENNE SIP1ULERING HAR Pflfl 
STIL-E 5SPC3 

10370 DflTfl LINGEN I DANflflRKS GRUPPE.tltS 
PC 3 

1 1000 Rtftnxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
11018 REtlxxxxxxx |1 E N U xxxxxxxxxxxx 
11020 REnxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

11030 X=8:Y=12:£=1: GOSUB60000: PRINT " I .ST 
ILLING I PULJEN 

11010 Y = 15:GOSUB60008:PRINT"2.KflriPE SPIL 
LET OG SPILLES 

I 1068 Y = l8i GOSUB68000: PRINT 3. NYE RESULT 
ATER 

11080 Y=21: GOSUB60008: PRINT «> -KPHP-S IHUL 
ER1NG" 

11100 V=?l: GOSU860000: PRINT 5-AFSlUT PRO 
GRfln : 
11120 GETA* 



1 1 1 30 I FflSCC A4*CHR*( 0 3 3 <490RASC t At+CHR* C 

0 3)>55THENM 120 

11140 X=7: Y=9M 3*UALCA* ))l£=l: GOSUB60000 
:PRINT TWHT3 OALtA* ) E YELJ~: 
11150 FORI =ITO700:NEXTI 

1 1 160 ONUflL E At 3GOTO20000 . 25000 , 1 5000 ,300 
00.57800 

1 2000 REftuxxxxxxmxxxxxxxxxxxxxxxxxxxxxx 
12010 KZtfxxxxxxx LOflO xxxxxxxxxxnx 
12020 REtfxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

12030 5K=0:X=3:Y=10: Z=2:GO5UB60000:PRINT 

INOSET DflTfl DISKETTE. TflST RETURN' 
1204,0 GETflt; IFAiOCHR*C I3 3THEN12040 
12050 X=13: Y=I8:Z=2: GDSUB60080: PRINT "LOfl 
DING. . . 

12060 0PEN2.8.2. Un 1986 OATfl.S.R' 

12070 F0RHMTO5 

12080 INPUT»2.P0fH3 

12090 INPUT«2.LnCH3 

121B0 INPUTi»2.nnCH3 

12110 INPUT«2.AKCH3 

12120 SK=SKf mKCH)/2 3 

12130 NEXTH 

12140 FORH=1TOSK 

12150 IWPUT«7.SK*CH) 

12160 NEXTH 

12170 INPUT*2,DAi 

17190 CLOSE2 

12190 GOSUB6 1 000: REtt DISK ERROR STATUS 
12200 RETURN 

1 3008 &Et1**v**-*x*xXxxxxxxxxxxxxxxxxxxxx 
13018 RZpxxxxxxx S fl U E xxxxxxxxx xxx 
13020 RfLWxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

13025 SK=0 

13030 IFPOf MO0THEN 13080 

13040 X=B: Y--10:Z=2:GOSUB60000: PRINT INGE 

N DflTfl. FORTSETTE fJ/N)" 

13050 GETfl4:IFfl*= J THEN 13080 

13060 IFflSO N THEN13050 

13070 GOTO 1 0000: REH RETUR TIL HENU 

13080 X=3:Y = 10:2 = 2:GOSUB60000: PRINT INDS 

ET DflTfl DISKETTE, TflST RETURN" 

13090 GETfl*: tFfli<>CHR*C 133THEN13B90 

13100 X=13:V=l0:z=2;eOSUe60000: PRINT SAW 

TNG. 

13118 OPEN! .8. 15. S;vn 1986 DATA ' : CL0SE1 

13120 0PEN2.8,2, UPt 1986 DATA.S.U" 

13130 F0RH=ITD5 

13148 PRlNTo2,P0(H) 

13150 PRINTn2,LWH3 

13160 PRINTn2,lin(H3 

13170 PRINTB2.AKCH) 

131B0 SK=SK + (f»KCH3>*2 3 

13130 NEXFH 

13200 F0RH=1T0SK 

13210 PRlNr«2,SKi(H) 

13220 NEXTH 

13230 PRINrn2 t Dfli 

13240 CL0SE2 

13250 G0SUB6 1000: REN DISK ERROR STATUS 
13288 RETURN 

1 4000 R£tfoxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
14010 REIt**"** UARIABLE xxxxxxxxxxxx 
1 4820 RZ^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
14030 H04CI3- DflNflflRK" 
14040 H0*E2)-'S0UJET" 
14050 H04C3)- SCHUEIZ 
1 4860 HOtCl )- IRLflND ' 
I 4870 HO* C 5 J - NORGE " 
14080 RETURN 

I 5000 REtfuxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
15010 REM*** INPUT NYE RESUL TAJTER xxxxx 
1 5028 REtfxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
15830 IFPOf 1 J=0THENGOSUB12800: REP1 HENT D 
ATA FRA DISKETTE 

15848 IFH0*f 1 1<> DANflARK THENGOSUB14800: 
REP1 HENT HOLDNAUNE 
15050 PRINT f CLR3 



51 



15060 PR1NTTABC9 ) IREU][ 18SPC 31 0FF3 
15870 PRlN TTABf 9 If REU] INPUT RESULTATER 
T OFF 3 " 

15090 PRINTTAB(9 3"(REU3t 18SPC J[ OFF] 
I50B3 IFKS = 1 tHENPRINTTABO 3 7 REU3I2SPC3K 
AHP-SiriULERING [ OFF 3 

1509*? I FKS -1 THENPRINT TABC9 3 7 REUK 18SFC3 
r OFF] 

15090 F0RH=ITO5 

J5100 X=5: y = 1 B+Hz Z-li GQSUB60000: PRINT t C 
M]"H". HOtfHl; 
15110 NEXTH 

1S12B X=3: Y = l 5: Z = l : GOSUB60000 : PR INT HJEfl 
MEHOLD C 1-5 1 7 : 

1SI30 GFTH14: I FASC f H 1 4-»-CHR4( 0 3 3<490RASC( 
H14*CHR4(01 1>53THEN15130 
15135 Hl*=UALfHl*3 

15110 X=7: Y=7; Z=l:GOSUB60B00; PRINT f WHT3 
M0*CH1XT T YEL]' 

15150 X=3: Y= 1 5: Z = 1 : GOSUB68000 : PR INT UDE- 
HOLP f 1-5) ?f 2SPC] ': 

15160 GETH24: IFASC CH24i-i:HR4( 0 3 3<490RASCC 
H24f CHRtO n>53THEN35ie0 
I5165 H2x=UAL(H24 3 

1 5 1 67 1 FHI v- =N2nTHENER s 1 : GOSUB58000: GOTO 1 
5150: REM ERROR MFSSFi&E 

15170 X=Lf NfHO*f MI*/ Dta: v=7:Z =l:GOSUB600 
00: PRINT I U1H1 ]- "HO*C H2* V C YEL ] " 
J 5175 F0RH-1T05 

1 5 1 76 X =5 : Y = 1 8+H =2 = 1: GQSUB 60000 : PRINT T C 
N][ 12SPC] : 

15177 NEXTH 

15180 XO! Y = 15:2 = l:GOSUBB0000:PRINT- MAAL 

TIL H04CH1* V T1SPC3 
15190 GCTLPK: IFflSC fLMi^CHRif 0 33<480RASCC 
L|14>CHR4{B) )>5?rHENl5l30 
15195 L(1-^ = 0^LfLf14) 

15200 X^llfLCN(HO4(Hi:^T)*LENCH0*tH2>13: Y 
=7:2=1 : GOSUB68000:PRINT TWHTl: Lpl* f YEL 
Ti 

15210 X=3: Y=lS:Z=l:GOSUB6B000: PRINT MAAL 

TIL H04fH2« 3 TSSPC] 
15220 GETI1K4: IFASCrriM4-H:HR4t8 3 3<480RASCC 
nnt»CHR4(BU>57THEN15220 
15225 nMx-=UALfni14l 

15230 X=IS*LENCHD4fHlx ]HLFN(H0t(H2» ) 1: Y 
GOSUB60080.PRINT TUHT3 - fin* T YEL 

r 

15235 IFKS = I THEN 15280: REH UDENOfl DATO 
15210 X=3: Y=l5:^=l:GO5UB600B0; INPUT DATO 

fEKS:2. 5-851 :DA4 
1525B IFLENtDflt 1 <60RLEN(DAi J>8THENER-2: G 
OSUB58000: GOIO15210: REM ERROR MESSAGE 
15260 IFRI&HWDfli.23<>"B5 ANDRIGHTtCUA* 
.2 3<> 86 TurNER=2:GOSUB58a00: GOTO15210 
15270 X=7t Y=9:Z=i:GOSUB60a00:PRINT TUHT3 

DA4 rVELl : 

15280 Xr3:yri5:£ = i; GO sUB60008:PRlNT 1 9SP 
ClDATA OK C J/N3C I2SPC3 

15230 GETF»4:[rflt- J THEN153Z8 
15300 IFA40 N THEN35290 

15310 Hia -0;H2*=0;Dri4 = :LD>«-0:nn«-0: GOT 
015009 

15320 GOSUB40B00:REn BEREGNING PflA RESUL 
TAT 

15330 X-7: Y = I0:2=2:GOSUB60000:PRINT HAR " 
OU FLERE DATA fJyNl 

15340 GETA4: I FA4 = N* ANDKSC )I THENG0SUB1 30 
00: GOTO 10000 

15345 IFfl** N ANOKS ^ 1 THENRE TURN 
15350 IFAtO J THEN15310 
1 53B0 H I a -a : H 7* s 0 : lH X t0 : mpim -.0 
15370 GOTO15B00 

70000 Rtftnxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

200 10- RCPU*x* STILLING I PULJEN xxxxxxx 
20020 &tr\*xxxx*xxxxxxxxxxxxxxxxxxxxxxxx 
20025 IFH04U3O DANMARK " THENG0SUB1 4000: 
REM HENT HOt.DNAUNE 



20030 IFPOf 1 ) = 8THCNG0SUB1 2000: REM DATA H 
FNTE5 FRfl DISK 

20010 I=0:H-0:FDRI=ITO5:YCI 3*0:Nr>:r[ 
20050 FORH=1T05 
20060 FORI=lT05 

2087B IFPOf HKPOt I3THENYCH )=Y( H 3+2: GDT02 
0120 

20090 IFPOIM )>POf I 3THENGOTO20120 

20090 IFLMCH 3 -MMC H KLMt 1 D-MMt I 3THENYIH 3 = 

VCH3+2iGOTO20120 

20100 IFLMCH3 -riPICH3>Lri(I 3-W1CI 3THEN2012B 
20110 IFLMf M 3£LMC I 3THENYCH 3-YC H 3+2: GQT02 
0120 

20115 IFLMCH 3=LMt I 30RAK(H3-AKtI 3THENYCN) 
--Y(H)+CtH>I l*-23 
20120 NEXT I 
20130 NEXTH 

20110 X=3:Y = 2: 2=2: GOSUB60000: PRINT r CVA3 
I 12S/CH C/fc3I 5S/C][C/R315S/'CJC C/KU 5S/*C3 
f C/S] 

20150 Y=3:^ = P GOSUB600TO: PRINT TS/B31 3SP 
C3H0LDf 5SPCH 5^B3KAMPEr S/B3SC0REC S/B IPOI 
NTtS/81 

20160 Y =1: GOSU660000 t PRINT r CsQ J[ I 2S /C][ 

s/+n 5s^*cir s/t][ 5s/c u sy+]r 5S/C][ r/u j 

20170 F0RH=lT05 

Z018B X=3;Y^5^YCH3:2-tiGO5UB6080B:PRINT 
r S/B 3 H04CH3 

20190 X = l6:Ga5UB60B00: PRINT rS/Bl flKCM ) 
20200 X=25-LENCSTR4f LMCH 3 3 3: GQSUB60000: P 
RlNTLHfH 3 

20205 X =25-'GOSUB6B000: PRINIMMC H 3 

20207 POlCEI02a+25+<l0*f 5+YCH 3 1 r 15 

20210 X =28: GOSUB60080: PRINT rSy-81 P0CH3 

20230 POKE1021 1-22 M0*C5+Y( H 1 3 .66 

20210 POKE1821+31 H0x[5^rTH 11.66 

2026 0 X =3' Y =5 Y tH 3i I = I : GO5UB60000 : PR I N r 

r C/tair 1 25^11^^31 5s/c]rs/+K5SyCjcs/'+]t 

20270 NEXTH 

202B0 X=3:Y = H:Z = i: GDSUB60800: PRl NT f C/0 
It 12S/C1CC/EH 5S^T][ CrE][5S/C3f C/E3C5S/C 
MCAl) 

20290 X=3:Y=15:2^l:GO9UB60000: PRINT f S/8 

1 SJDSTE KflMP SP I LLF T DA4 

20300 POKEl0?1t3rt»10»l5 .66 

20310 X=3: Y = l6:Z = l:GOSUB60000: PRINT T C/2 

U3BS/t3tCvX3 

20320 X =l 2: Y =22: Z>l : GOSUB60000: PRINT TRY 
K EN TftST 

20330 GETA4: I FKS O0THENGOSUB20390: REM KA 

riPSlMULERING 

20310 IFA4= rHEN20330 

20350 X = !2:Y=22:£ = l:GOS*JB60000:PRINr [ WH 
TJTRYK CNTflSTfYELl : FORI : 1 TO600: NEXTI 
20360 I FKS -1THENRETURN 
20390 GOTO 10800: RED MENU 
20390 REfl KANPS IflULERING 

20100 X=10:Y=l3:2il:GOSUB60000; PRINT T Re 
U ] K APIP- S I MULE R I NGf OFF 3 
28110 FORI - 1 TO200: NEXT 1 

201Z8 GOSUB60R00; PRINT f 175PC J : FORI =1 TO 
200: NEXTI 
20130 RETURM 
28999 STOP 

25000 '"li''"''**' * ' * 1 1 1 iii lit it i ij 1 1 ) 1 1 ii) 

25010 REH»* KAMPE SPiLLET OG SPlLLES XX 
25828 RZnxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
25030 IFPOCl 3=0rHENGOSUBl20B0: REri HENT D 
ATA FRA DISKETTE 

25035 I FMD4T 1 K > "DANMARK"THENGOSUBH000: 
REH HENT HOLDNAUNE 
25010 A=8:PRINr T CLR 3 : 

25050 PRINT r3SPC][C/fl]IZlS/C][C/RJ[ 9S/C 

n cssi 

250S0 PRINT T 3SPCK S/B JKAhPI 17SPCUS/B1E 
UT. SCORE! SyB] 

25070 PKINT r3SPC]IC/Q][2lS/C3tSy'+]C9S/C 



5? 



ItCAt}" 

25080 FORH=1T05 
25890 FORI = 1T05 
25100 I FH - 1 THf N252 1 0 
25110 A=A+I 

25120 PRINTTAB H )HO*CH J: PRINTTABr 12) T CD 

l-"i:PRINT"f CO) 

25130 PRINTTABM4 )H04(I 3 

25140 FORB=lTOSK: lFCHRtC32 3+LEFTi(SK*f B 3 
.3)=STR*fH1tSTRJ( 1 3THENC =B ! GO TQ25 160 
25115 NEXTB 

25150 GOTO25190:REn KAMPEN ER ENPNU IKE 
SPILLET 

25160 PRINT rCOl TflBf233RIGHTlCSK*(C),33 

25170 POKCI021*30*40*CA-»-2).45 

25100 POKE1024 '3«-40*tA+Z).&6 

25190 POKE 1 02*1 » 25 »-40x( A+2 3 - 66 

25200 POKE1024«-35*40«CP*2).66 

25210 NEXT | 

25220 NCHTH 

25230 PRINT f 3SPC H CxZH 21S/*C IT C/£ )l 3S/C 
UC/XJ ' 

25240 GCTA*: IFAt THEN25240 
25250 GOTDl0000;RE;f1 P1ENU 
25393 STOP 

300R0 REM"** xxxxxx XXXXXXXXXXXXXXXXXXXXX 

30010 REM**** KAMP-SIMULERING vxxxxxxxx 
30020 Rf nxxitKX^Jci^xxxjcacxxxxixxyjrxatJtxyat* 
30830 IFFO[ 1 } -0THENGOSUBI 2080: REM HCNT O 
ATA FRA DISK 

30040 IFH0tM)O DANplARK THENGOSUB1 4000: 

«en hent holo-naune 

3BB50 KS=1:GOSUB15000:REM INPUT DATA 

30060 K£?l:GOSUB2B080:REM STILLING 

30070 X=7:r^l0:Z=2:GO5UB60800:PRIfSr DER 

SKAL HENTES N>X DATA 

30000 FORI : I 10988: NEXT I 

30090 G0SUS1 2000. REM MENT DAtA 

30180 DA-| : GOTO10000 

10000 ML'Mh i »».«»■ k t riuiiliuxyxxixixxy 
40010 REM** BfRrGNING PAA INPUT «**x**;i 
10020 REM"** »n»ix>^«^»nti*x, 
10030 Xt,[0: v = i0;2-2:GOSUB60800:PRlNr UEN 
T ET 0JFSLIK. . 
40040 LWHlv. )-LMfHl;0*Ln* 

40850 MrifHi v i-rincMix )*rni--< 

40060 LrKHZx 1-LMCH2* )+MI1* 
40070 Mf1fH2^ J-MMfH2^ liLpt^ 
40090 RKCH1 * 1 = AK C H 1 x HI 
40090 AKCM2*l=AKrH7* It 1 

40100 IFLM*>MfV*rHENPOfHl;<}=P0CHl.* l+2:REf1 

HOLD Ht* JINUER 
40110 !FLMx<MM*THENP0tH2> l=WH2Mt2;REn 

HOLD H2* aiNDER 
40120 IFLnr<^MMxTHENPOrHlx1=:P0(Hlx UKPOC 
H2* l-pO("H2x It 1 : REIt UAFGJORT 
10130 SK^SKH 

40140 S<tCSK3-STR4CHlx HSTRif H2*1^STR1 [ |_ 
M* HSrR*CMn-/ J 

40150 SKUSK WRI&Hf4tSK*(SK 3.7 3 
40160 RETURN 

57800 REMn**»* »«nxx xxvxxxxxxxxxixxim 
57010 REM*** flFSLUTTE PROGRAM xxxxxxxxx 
5 7020 REflxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
57030 PR-INTEMR4C3 ]:REM ENABLES 'COM.SHIF 

57040 X=9: YM 0:2^2: GOSUB60000: PRINT LAUE 
R BACK-UP Qnm-FIL 

57050 0PEN1.8.15. S:UM 1986 DATA II : ELD 
SE1 

57860 OPENl.9,15, E:UM 1996 DATA H=0tUM 

1386 OHIO : CLOSE 1 
57070 PRINT T2EN1I 16CHKREU1 OK [0FF3" 
5 7880 EMP 

58080 UCV\nvxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
58010 REM*»**x ERROR MESSAGES xxxxxxxxx 
58020 f!En**:Xx**xXxxx#xxxxxxxxx xxxxxxxxx 
58030 GOSUB68080: REM T(Ul. PR I NTP05 1 T ION 
58040 IPER=1IMENPRINT ET HOLD KAN 1KKE S 



PILLE MED SlG SELU 

59058 IFER=2THENPRIMT DBS. MODEL EKS.S 1 

2.12.85M9PC1 

58100 FOR I -1 T 02000: NEXT I 

58110 GOSUB60380: PRINT r38SPC)' 

58128 RETURN 

68008 &tnnxxxwx*xxxxxxxxxxxxxxxxxxxxxxx 
68810 REM****« PRINT-POSITION xxxxxxx 
68828 REVxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
60038 I FZ = 1 THENPRINT f HOM] 
68848 I FZ -2 IHCNPRINT TCLR] 
60850 1 FY< >0T| 1ENP0KE2 1 4 , Y- 1 : PR I NT 
68068 P0KE211 4 X 
68078 RETURN 

61000 REtftxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

61810 REM READ DISK ERROR STATUS *M 

61020 RZHxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

61038 OPCN15.0, 15 

61040 INPUTal5.EN.EM*.FT.ES 

61850 lFEN=73lhFN6l040 

61860 irEN<20IHCNCLOSri5:RerURN 

61870 PRINT ffLRlf <\CU]xtxtxxxxxxxxxXXXXX 

xxxxxxxxxxxxxxxxx' 1 

61088 PRINT T2CNH USPC10ISK ERROR 
61890 PRINT r 2CN3E 5SPCJERR0R - EN " EH 

61100 PRINT rCNUSSPCII TRACK ET OG 

SEKTOR - ES 
61110 PRINT r 2CNJE 5SPC ]PR0GRAn-UDF8REL5F 
N STANDSES 

61115 PRINT T 2CNK5SPC1KAN GCNOPTAGES UF 
□ CONT ORDRE 

61120 PRINT | 3t:Hlxxxxx*xxxxxxxxxxxxxxxxx 

xxxxxxxxxxxx 

61 130 C4.0SE15 

61140 9YS65511RrM LUKK£R ALLE FILER I 6 
4 

61 150 STOP 
61160 RE I URN 



READf. 

KONTROLSUM FOR Utl 1386 



10 


243 


20 


196 


38 


11 


40 


251 


10000 


116 


18010 


153 


100 28 


123 


18038 


112 


18048 


34 


10850 


146 


18068 


14 


10070 


246 


18030 


1 35 


10108 


220 


10110 


239 


10128 


67 


101 18 


31 


10135 


104 


10148 


71 


10158 


160 


10168 


163 


10178 


133 


10175 


20B 


ih; Be 


50 


10185 


204 


10138 


210 


10200 


48 


18210 


236 


IB?28 


Z13 


18230 


243 


10248 


196 


10258 


156 


10268 


237 


10770 


20 


10280 


58 


18300 


72 


18310 


243 


10320 


150 


18330 


238 


10340 


157 


10350 


196 


10360 


117 


18320 


63 


1 1000 


1 16 


11010 


194 


11020 


123 


1 1030 


SI 


11 040 


66 


1 i860 


192 


1 1080 


243 


1 11 88 


234 


11120 


6 


11130 


238 


11140 


252 


1 1 150 


237 


1 1 1 60 


19 


12080 


1 16 


12010 


173 


12020 


123 


12030 


239 


12040 


174 


12050 


232 


12068 


213 


I2B78 


133 


12098 


26 


12090 


28 


12180 


21 


121 10 


7 


12128 


237 


12130 


202 


12148 


239 


12150 


61 


12160 


202 


12170 


133 


12180 


218 


171 98 


78 


1 2280 


142 


13000 


1 16 


1 3010 


108 


13020 


123 


13025 


128 


13&30 


227 


1 304Q 


35 


13050 


13 


1 3060 


134 


13070 


83 


13080 


53 


13090 


190 


13188 


178 


13110 


163 


13120 


218 


13130 


133 


131 40 


46 


13150 


48 


1 31 60 


41 


13170 


27 


131 90 


237 


13190 


202 


13200 


238 


13210 


81 


1 3220 


202 


13230 


159 



53 



1 32*10 


210 


1 > n rv r\ 

1 40(90 


1 16 




a a 


1 IflBN 




i (_ non 
1 


lib 


1 K i . r \ 


1 25 


i cncn 
1 


I 30 


15083 


23B 


1 51 80 


1 32 


1 51 30 


217 


I 3 1 JO 


67 


151 67 


182 


1 Dl/D 


•CIO 


I 1 1 QQ 

1 3 L jc 


DO 


1 J£ 1 B 


D 


1 «;7'1D 

1 D£ J*. 


ZD 1 


I S?S0 


1 3D 


i r _ Tin 


223 


1 1 u 


lJo 


153*10 


50 


1 0 JD0 


210 


2001 0 


30 


intra in 


22/ 


70060 


1 31 






201 15 


t 63 


201 10 


5 


201 ?0 


133 


20200 


57 


20210 


98 




-51 


20230 


82 


20320 


166 


20350 


131 


20390 


215 



13250 70 

11010 73 

14040 IS 

14070 178 

15010 230 

15040 110 

15070 129 

15094 121 

15110 202 

15135 3 

15160 223 

15170 80 

15177 282 

15135 67 

15220 63 

15235 172 

15250 76 

15230 18 

15328 129 

15345 153 

15370 12? 

20020 123 

28040 35 

20070 L2B 

20100 250 

70 120 203 

20150 238 

20180 180 

20205 52 

20230 224 

20270 202 

2il300 33 

70330 64 

20360 65 

2R400 34 



13260 142 
14028 123 
14050 82 
140B0 142 
15020 123 
15050 112 
15080 133 
15090 133 
15120 174 
15148 153 
15165 5 
15175 133 
15180 223 
15200 62 
15225 69 
15240 3 
15270 213 
15300 142 
15330 133 
15350 134 

20000 lie 

20025 110 

20050 133 

20080 210 

20110 116 

20130 202 

20160 H7 

20130 76 

20207 224 

20240 22? 

20280 52 

20310 120 

20340 133 

20380 152 

20*10 232 



204 28 220 
25000 116 
25030 125 
2S0S8 39 
25080 133 
25110 15 
25140 87 
25168 116 
25190 47 
25220 202 
25750 152 
30010 70 
30040 155 
30070 134 
38100 28 
40020 123 
40050 45 
40080 131 
40110 13,7 
40140 111 

V800 116 

57030 138 

57660 133 

58800 116 

58030 233 

59100 24 

68000 116 

60630 95 

60060 175 

61010 162 

61040 20 

61070 114 

61100 137 

61 120 206 

61 150 144 



20130 


142 


25010 


20 


25035 


1 10 


25060 


101 


25030 


134 


25120 


212 


25145 


196 


25178 


40 


25200 


48 


25230 


50 


25939 


144 


30820 


123 


30058 


241 


30 080 


238 


10000 


116 


10030 


176 


100g0 


45 


40030 


133 


"0120 


58 


40150 


145 


57010 


103 


57840 


243 


57070 


77 


58018 


29 


53040 


22? 


581 IB 


90 


60010 


54 


60040 


224 


60070 


142 


61020 


81 


61058 


220 


61080 


52 


61 1 10 


65 


61 130 


6 


61 160 


142 



20993 144 
25020 123 
25010 8 
25070 80 
25 I 00 111 
25130 31 
25150 101 
25180 251 
25210 203 
25240 202 
30800 116 
30030 75 
30060 137 
30090 21B 
400 10 124 
10040 42 
40070 46 
40100 192 
40130 20J 
40160 142 
57020 123 
57050 85 
57080 12S 
58020 123 
58050 199 
58 1 20 1 42 
60020 1 23 
60050 I23 
6! 000 74 
6 1 030 25 1 
6 1860 1 63 
6 I 090 93 
6lllS 117 
61 140 26 



STOW UDVALG 

GODE B0GER _ c 
TIL COMMODORE. 



Kurt Friia Banaam 

DUB MED commodore 6k /PLUS 

En Uuodverli« ban for alia 
' - Mi' ?■:--» i - r - . 

Mange ore oplykoioger tea 

Ikka ' . 5 t&dra 

Bl.a Ms» kinkodtprogranner ing 




David Buachi 
Oaaea .Graphic *od 
ApplS cat i OBI 
Prograaaar lodan for 
Bpil.Orafia og appli- 
katiooar. Kaaaatt *Vnd I 
led. bog ltd liUnlng 



TIL&UD 



KR 



B0CER TIL VIC 20 oa COMMODOHI till 
( Rakvlrer Udaalga*>ria ) 




HfcDSAT 



50j75%" 



Cfta MIXRODATAIHFORMATIOI IK 0ABMARX5 STflRB-TE 
TMPOBfBB AP COHPUfERLIfT MATUA. 

VI LAG ERF0MEH BASTE* 100 TITLED TIL COM*0&QRI 6-> 
00 VIC 20 SAMT MECET AKDET. 

RIRQ PA TLF. (0?) 999371 00 FA •>:"-■: OFLTS- 
■IKGIR ILLER SERIV QG FA TILSEBDT LITTERAT URLI 8TE . 

ET LILLE UDVALC FNA VOR LAGER i 

- Multiplaa on tba Coaaodora 6k Kr- 299.00 • 

• Coaaodora PIU&A B.nbook Kr. 2*3. T5 * 

• Coaaodora 16 Uiera Manual Kr. 171.00 • 

• Coaaadore 6k Connection Xr. 2JJ.00 • 

♦ Coaaodore 6* Crapnica and Sound Xr. 33*. 00 * 

♦ Moatlr Baaic Application roir 

Coaaodora Boor, i tod 2 i Kr. 250.00 * 

• CoBBCdora '-' Batie Prograaa Kr. 203*00 * 

* Coaaodora 6a Datafilaa Kr. 226.00 • 

* Coaal Baadboofc Coaaodora 6k Kr. UL.OO i 

• Graphic! Oulda Coaaodora 6k Kr. 29b. 00 ♦ 

• :-.-.-r of Calcffcault Coaaodora 6b Kr. 326.00 • 

♦ Haitar Kaaory Map Coaaodora 6k Xr. 150.00 • 

• VIC 20 Uaara Culda Kr. 283.00 • 

* VIC SO » fun tod Mtr Oaata Xr. 224.09 * 

• Coaaodora 6k Fun aod Oaaea Kr. 226.00 • 

* Tha z&bj guide * o your Coaaodora Kr. 165*00 • 

* u«ir,it lb* Coanoderi 6» Kr. 23o"-00 * 

VI BAR A I'll IT HD BBGE* 



• CB12O0 MOalTOB, af airkll 
kralltat( Antlraflaka 



♦ SAMPO DATARXCORDBP , 
aed Reaotekontrol og 



B-Jj kvalltat 

Vararna kia tllacadaa Fr. ""-r 
*kra*(0«byr Kr. 20.00) allar for- 
udbetklei Pr. Cbcck 
IRSTITUTIOIXR f&r tilaaadt 
Faktura. 

cab mi krooata i1format1 os a/s 

BLAKILDECEHTRET 10- 
2630 TASTROP - (02j 9'59371 
Par tagea forbaboLd for •, ■ 
Jrioger og trjtfejil. 
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RESNETIHE 

AF BJflRNE JENSEN 

KBBENHflUN 



Til Commodore 64 



18 REfl xxxxxxxxxxxxxxxxxxxxxxxx.x 
15 REP i* y 
20 REd * -REGNETIHE- X 

25 REH % TIL CBfl-64 flF * 

30 REfl x BJflRNE U JENSEN * 

35 REH * X 
10 REfl ****x** ***** 

15 RF.fl 
50 REfl 

60 DinFU*t5.iaj.DtC2B3 i P*[20).E*{20) 

70 FDRN = \ T05 i FORP =0TO 1 0: REflPFU * [ N .P )J NEX 

T • NEPtT 

80 FDRN = U°20: REflDP*(NJ: NEXT 

90 FORN=1TO20; READPitNJ: NEXT 

100 FORN=lTO20:REflDE*CN3:NEXT 

1 10 FOKE53Z80 . 9: P0KE53281 .9* N=RND(-TI 3 

140 PRINT 7CLR3C2CNJEGRN3 

150 PRlNTTflBt 1 8 3" f REU3C 21SPC1 " 

160 PR I NT TAB C I 0 3 t REU3C 2SPC]R E G N F T 

I H EC2SPCJ- 

170 PRINTTABt 1 0 IT REU3C Z1SPC] " 

180 PRINTTflBU0J "MCNHYEUhEJ -C2SFC3HU 

AO HEDDER PU " 

185 P0KE198.8:PR1NTTAB(13) T3CN3 j:INPUT 
Nfl* 

190 PRINTTflB(9 3 T3CN]SUflERHEPSGRflD U-1B 
3 ;•- INPUTP3i 

195 JFNm= THENNflt= tfVK ) ??* 

200 P3=UflLCP3* 3: IFP3<IORP3> lBTHENPRINT'C 

2CD3' ; : G0TO19B 

205 POKE53280,6:POKE53281 .6 

210 PRINTS CLR] ; :POKE198.0 

220 Tl=lBtGOSUBl900 

230 IFF3>6flNPT 1 =1 THEN22B 

248 IFP3<3f*NDTl =3THEN223 

250 JFP3<4ftNPTl=lBTHEN2Z0 

260 IFP3<5f»NPTl=9THEN2Z0 

270 lFP3<6flNPTi=6THEN220 

280 JFP3<7f*NPTl=4THEN220 

300 DNT1GPSUB500, 600. 700. 800, 9B0, 1000 11 
00,1200,1300,1400 

310 N=0: IF6<>LTHENPOKE53280,0:GDTO40a 
320 PRlNTTflBC63"[GRNJC2CN]^ % * x % RIQT 
IGT * x x x x" 

330 FOKE53Z80.5;FORI=ITO200:NEXT:IFN>1TH 
EN360 

340 FRINTTABC5 1 [ C03C 29SPCK 3C03 

350 PDKE53280.6:FDRI=!TO200:NEXT:N=Ntl:G 

DTD320 

360 PDKE53Z88.6:P2=P2+1 

400 Fl-ntUPRINTTflBCl3J , rY€LK2CN3UIL D 

U HERE "i 

410 □!="■: INPUTOi 

420 IFLEFTtCQ* ,1 3<) N THEN210 

430 PRINT f CLR3" 

410 PR INTTflBt 1 5 3'T 3CN3HE J ; Nfl* 

450 PRINTTflBtB 3"t 3CN1DU HAR REGNET" ; Pi; ' 

OpGpUER 

455 PRINTTflBt 10 3 T 3CN30G DE ;P2; UflR rig 
TIGE 

460 PRlNTTflB(9 3 t3CNJSUAERHEPSGRflDEN OAR 
:P3 

465 PRINTTABf IB 3 f 3CN3UIL DU STADIG IKKE 

S :Q* = : INPUTG* 
470 IFLEFTICQ4.1 3O N-THEN210 
475 PRINT TCLR3C5CN) 
190 PRINTTPB(14) SOM DU UILC 5CN3 



482 PRINTTASC 16 3NA* 

485 PRINTTABt 16 3 fSCtOFARUEL" 

«90 FORN=1TO3800; NEXT; RUN 

500 Tl=20: GOSUB1900 

510 N*=DUT1 );ri=5:T2 = 10;6OSUBl908 

520 PRINT TCLR3C 2CN J " 

530 FRINTTABC 5 3N*; GflflR TIL ;FU4(T1.03 

540 FRINTTABC 5 3 T 2CN3EPTER * ; FU* C Tl , T2 J) 

550 fl=Tl :8=TZ=T1 -3: T2=8: GOSU01900 

560 IFTl =1 THENTl -20 

565 IFTl -2THENT1 =50 

565 IFT1=2THENT1 =58 

570 IFTl =3THENT1 =100 

575 L^lltT2 

580 PRINTTABC5) X2CNJHRN BETTER P1ED"IT1 
I KR . 

585 PRINTTABf 53 T2CN30G FftAR" ;T1-LJ ' KR» 
T iLBflGE , 

588 PRINTTASC 5 3"t2CN3HUflD KOSTER ":FUi(A 
.B 3; NE : ; INPUTGi n 
590 G=UALCGiJ 

594 IFGOLTHENPRINTTflBC 5 3 r LTREDJC 2CN3NE 

J • SFU*(fl.B); "NE KOSTER" iL; KR 

■596 RETURN 

600 Tl =20: GOSUB13B0 

610 Ni=PifTl 3:T1=20:GOSUB1900 

620 PRINT tCLR3C2CN3";:PRJNTTflBC83N».; G 

AAR I BYEN " 

630 PRINTTflB(B3 rCNJFOR FRU ;EifT13r " 
640 Tt=5:T2=5:GOSUB1900;fl=TltP3 
650 B = T2tP3:Tl=5:T2=!0iGOSl^l300 
655^PRlNTTflBCB) t 2CN3HUN K0BER ;fl;p^*CTl 

660 PRI NTTflBt 8 3 C CN3HOS ; FU*CT1 ,0 31 ' " 
665 PRINTTPBCSJ C2CN3DE KOSTE* ' i B; KR .PR 
• STK . ' 

670 PRINTTABCB3 (2CN3HUOR HEGET SKflL iti 
S7S PR I NT TAB CB 3 T CN3BETALE IRLT ";: INPUT 

G4 

680 L=fl*B;G=UALfGi3 

690 IFGOLTHENPRINT' T2CN3CLTRED3C2SPC3NE 
J HUN SKflL BEThLE";A; "i":B; =":L; KR * 

695 RETURN 

700 Tl=20iT2=Z0:GOSU8l9B0 

705 NU=D4(T1 3:N2t=P*CT3 3:Tl=20:GOSUB19B 

0 

710 Nt=E«CTl 3:T1=4:T2=4:GO5UB19B0 

715 N1=T1*P3:N2=T2+P3:T1=5: T2=5: GDSU0190 

720 FUTI:F2-T3:T1=1B:T2 = 10:GOSUB1900 

725 UlrTt:U2=T2:Tl=5:T2=5:GOSUB190B 

730 KUTltINT(P3/2 3rK2 = T2tlNTCP3/23iPRlN 

T"ECLR3C2CN3'J 

735 PRlNTTflB(2)Nli; OG iN2*; K0BER IN 

740 PRINT' r 2SPC3FOR HR. :N»; . 
^^PRjNT'f CN3E2SPC]' (Nlti K0BER" JNUFU 

750 PRINT t 2SPC3HOS "JFU1CF1.0 3) 

755 PRINT f CN1T2SPC3- ;N2*; K0BER IN2;FU 

*CF2 .02 3 

760 PRINT'T2SPCJH0S :FU*tF2 .0 3; " . " 

^65 PRINT' T CN3C 2SPC] " :FU4(F1 ,U1 3; NE KOS 

TER'- :K1; KR.PR.STK. 

?67 PRINTTABC2 3FU*CF2.U2)i NE KOSTER ;K2 
i KR.PR.STK." 

770 PRINT* f CNJ[ 2SPC3HUOR HEGET SKPL HR . 

775 PRINTTftBC 2 3 BETflLE IflLT i : INPUTG* 
780 L=N1*K1 rN2»K2-G=UflLCG*> 
?90 JFLOGTHENPRINT C2CN3CLTREP3 NEJ HftN 
SKPL BETflLE' :NIXK1; > ;N2*K2i = ; L l' KR . 

'95 RETURN 

800 Tl=2B:T2=20:GrjSUB1900 

BB5 Nli=D*CTl ):N2*=P«CT3J:Tlc2e:GaSU319B 
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en 



n o u o n n / co c 
ui\i ii u iuLu\C 



a a 



Kobenhavn 



FONA COMPUTER CENTER 

Ilium, 4 sal 
Oslergade 52 
1001 Kobenhavn K 

Telf.: 01-144002 



FONA 

Ostergade 47 

1100 Kobenhavn K 

Telf.. 01-159055 



FONA COMPUTER CENTER 

SkmdGfgfld* 41 
1159 Kobonhavn K 
TeH. 01-110707 



FONA 

Vesterbrogade 62 
1620 Kobenhavn V 
Telf.: 01-249300 



FONA 

Gl Konflov*j 115 
1850 Kobenhavn V 
Telf 01-21OB93 



Storkobenhavn 



FONA 

Falkoner Alie 58 
2000 Frederiksberg 
Tell . 01-352122 



MIBOLA MtKRODATA 

Oslerbrogade 117 
2100 Kttwnhavn 0 
Tell. 01-183366 



FONA 

Osterbrogade 80 
2100 Kobenhavn 0 
Telf 01-421010 



FONA 

NorrabrogaQe 34 
2200 Kobenhavn N 
Telf.; 01-377788 



FONA 

Norrebrogade 174 
2200 Kobenhavn N 
Telf.: 01-B3034S 



FONA 

Amagerbrogade 49 
2300 Kobe-nhavn S 
Telf.: 01-572131 



FONA 

Amaserbrogade 126 
2300 Kobanhavn S 
Telf 01-553600 



FONA 

Sunabyvesier Wads 1 -3 

2300 Kobanhavn S 
Telf.: 01-559662 



FONA 

Fredenkssundsvei 38 
2400 Kobenhavn NV 
Tell. 01-190186 



LAMIFI DATA 

Solskrmilen 33 
2500 Valby 
Telf. 01-163299 



FONA 

Valby LanggBde 56 
2500 Valby 
Tell. 01-163045 



FONA 

Hovedvejen 86 
2G00 Glostrup 
Tail.. 02-457077 



FONA 

Hodovre Cenlcum 131 
2610 Rodovre 
T*lf.. 01-411777 



FONA 

C<ly 2 - 206 
2630 Tisirup 
Tail: 02-521525 



POULSEN COMPUTER CENTER 

C*y 2 - 304 
2630 Ttetrup 
Telf.: 02-990977 



FONA 

lahoi ByContef 32 
2635 tsho) 
Telf 02-730233 



FONA 

Hvidovre Siaiionscenler 37 
2650 Hvidovre 
Tell 01-471621 



FONA 

Slrandmarksvei 20 
2650 Hvidovre 
Telf 01-490711 



FONA 

Grave Cenier 86 
2670 Grevo Slrand 
Talf : 02-900455 



FONA 

Hundie Slorcenter 98 
2670 Greve Slrand 

Telf,: 02-900790 



JM-DATA 

Sano-bakkan 27 
2680 Solrod Strand 
Telf 03-144573 



FONA RADIO A/S 

16 

Fredenkssundsvei 330 
2700 BrcmBhci 
Tfi«.; 01-287000 



FONA 

Fredcnhssundsve) 154 
2700 Bronshol 
Telf.: 01-2B2728 



FONA 

Jembano Aire 39 
2720 Venlow 
Telf 01-741518 



FONA 

Heriev Bygade 28 
2730 Heriev 
Telf.. 02-946787 



FONA 

Cenlrumgaden 26 
2750 BaJlerup 
Tell.. 02-654455 



FONA 

Lyngby Storcenier 38 
2800 Lyngby 
Telf : 02-871134 



FONA 

Sobofg Hovedgade 56 
2860 Seborg 
Telf 01-561766 



FONA 

Slrandvejen 161 
2900 Hellerup 
Tell 01-611422 



FONA 

Hovedgaden 14 
2970 Horsriolm 
Toll. 02-964168 



NordsjEelland/Bornholm 



BOL DATA 

Set Olaigade47 
3000 Heisingof 
Telf. 02-10O2H 



FONA 

Stengade S3 
3000 Helsingor 
Telf.. 02-210918 



FONA 

Stotsgade 25 
3400 HiHerod 
Tell 02-260133 



BO-EL DATA 

Tamsborgvej 19 
3400 Hillerod 
Telf.: 02-253131 



FONA 

Farum Byiorv 11 
3520 Farum 
TeH.: 02-955068 



U.I.B. ELECTRONIC A DATA INC. 
ApS 

Llllevangsvei 3, Accacieiorvel 
3520 Farum 
Telf 02-955170 



FONA 

Havnogada 21 A 
3600 F redenkssund 
Telf 02-311515 



Syd- og Mldtsjaelland 



FONA 

Algade 12 
4000 Roskilde 
Tatl 02-365633 



DATARINGEN 

Tune Ceniret 
Arneation 12 
4000 Roskilde 
Tell 02-139100 



FONA 

Vest stands Cenlef 15 
4200 Slagelse 
Telf.: 03-520916 



FONA 

Ahlgade 61 
4300 Haibask 
Totf. 03-437510 



FONA 

None-gade 1 
4600 Koge 
Telf 03-650088 



FONA 

Set Peders Kirkeplada 1 
4700 Naastved 
Tell 03-727122 

Fyn med omllggende 



FONA COMPUTER CENTER 

Veslergade 61 
5000 Odense C 
Talf 09-125808 



FONA 

Tarup Center 
5210 Odense SO 
Tett.; 09-160123 



FONA 

Rosongardscontrot 34 
5220 Odense 50 
Teff.: 09-159755 



FONA 

VoWgade 7 
5700 Svandborg 
Tert : 09-211785 



Vest- og Send erjy Hand 



FONA 

Helhgko'sgade 2 
6000 Koldlng 
Tort : 05-527755 
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FOTOHUSET A/S 

Sor>dergade 4 
6O0O Kotdmg 
Tolf. 05-5200M 



FOTOHUSET A/S 

Bispegaas 7 
6100 Hadwslev 
Telf.. 04-521319 



FOTOHUSET A/S 

Norrepon 19 

6200 ADenri 

Telf. ; 04-626601 



FONA 

fiamsherrod 41 A 
6200 Abenra 
Telf 04 -622544 



FONA 

89 

Perlegade 30 

6400 Sonderborg 
Tell.; 04-421013 



FOTOHUSET A/S 

Periegade 49 
6400 Sonderborg 
Telf.. 04-423265 



FONA 

Kongensgade 60 
6700 Esbjerg 
Tart.: 05-130133 



Midtjylland 



FONA 

Gothersgade 12 
7000 Fredencia 
Tell 05-922955 



FOTOHUSET A/S 

Gothorggade 19 
7000 Fredencia 
TeW.: 05-922454 



FONA 

Norrcgade 29 G 
7100 Vejle 
Tell . 05-827288 



FOTOHUSET A/S 

Hadhu-sforvsl 2 
7100 Vejle 

Telf. : 05-822337 



FONA 

Bredgade 17 
7400 Herning 
Telf. 07-124455 



FONA 

Norregade X 
7500 Holsiebro 
Tetf.: D7J25611 



Ostjylland 



FONA COMPUTER CENTER 

BanegSfdsgado 16 
8000 ArMus C 
Telf.: 06-132222 



FONA 

GuldsmedcgarJe 15 
8000 Arfius C 
Telf. 06-122777 



FONA 

MP Bruunsgade 43 
8000 Afhus C 
Telf 06-131857 



FONA 

Sondergade 15 
8000 Arhus C 
Telf ; 06-131724 



FONA 

City Vesi 243 
8220 firebrand 
Telf.. 08-253011 



FONA 

Sondergade 17 
8600 Sllheborg 

Tetf 06-825733 



FONA 

Sondergade 

8700 Horsens 
Telf.. 05-628000 



FONA 

Set Manilas MarKad 305 
BSQO Viborg 

Tetf.: 06-625266 



FONA 

RadbusstrKde 13 
8900 Randsrs 
Telf . 0GJ27533 



DATA RINGEN 

Sloisgada 4 
■Siot5centrei 
8900 Randers 
Tell.: 06-413777 



Nordjylland 



FONA 

Nibevei 27 A. Skalborg 
9200 Aalbewg SV 
Tell.: 08-184310 



► 510 Ni-E*CT1 3:Tl=P3:T2=P3:G0SUBi3aa 

815 Nl=n*2:N2=T2+2:Tl =5: T2 = 5: GO5UB1900 
820 Fl=Tl:F2 = T3: Tl=10: T2= 10: GOSUB1900 
825 Ul-Tl:U2=r2:Tl=P3: T2=P3: GOSUB1900 
830 Kl =T1 +2: K2=T3+2: PRINT "7 CLR3C 2CNJ 1 
835 PRINTTflB{2 3N11; ' OG ;N2*i K03ER IN 

840 PRINT 7 2SPC ]FOR HR . ;N»; ." 
B45^PRINT'TCNH2SPC] ";Nlt; K0BER~ ; Nl ; FU 

850 PRINT' C2SPC3HCJS ' ; FU* CF1 .0 3; 

853 PRINT , TCNJ£2Sr j C]";N24; K0BER " :FUt( 

F2.U2) 

86S PRINT' f 2SPC3HOS ; FYUF2 ,0 ); " . ' 

865 PRINT" TCNIC2SPC]" JFUtCFl ,U1 >; NE KOS 

TER'lKli KR.PR.STK. 

867 PRINTTFiBC23FU*{F2.U23i NE KOSTER" i K2 

TKR.PR.STK. 

368 L=Nl*Kl»-N2*K2 

B70 PRINT'rCN)C2SPC]HR. "SN*S" BETaLER I 
ALT' ;l; KR." 

875 PRINT "[ CN][ 2SPC 3HU0R HflNGE ' iFU*(F2, 
U21 

87? PR INT f 2SPC3K8BER ;N2*i : : INPUTG* 
880 L=N2:G=UOLCG«] 

83B IFLOGTMENPRINT'7 2CN]C LTREPH 2SPCJNE 
J HUN K0BER ' : L; FUi{ F2 , U2 3 
895 RETURN 
300 GOSUB1960 

910 Tl =P3*5: T2=T1 : GOSUB1900 

920 L=T1+P3*P3: PRINT T CLR3C 5CN3 '' 

930 PRINTTABC 14 3Ni; " +" : T2tP3*P3) " = " ; T2+ 

P3*P3-H_ 

940 PRINTTAB(i63"f4CN)":Ni;' « "l 
950 INPUTG*: G=UfU_CGi 3 

960 IFGOLTHENPRINTTF1BU4 3 7 LTREPJt 4CNJN 

EJC 2SPC3 ' ; N* ; = iU; 7 CN3 " 

970 RETURN 

1000 GOSUB1960 

1010 T1=P3:T2:P3:GOSUB1900 

1020 F* = T 1 +P3: L=T2+P3: Tl =25: GOSU01900 

1030 B = T1+P3.*P3:PRINT'7 CLRK5CN3" 



1040 PRIfNTTPBt 1 2 )F»i TCUr'JNt} * J Bi = J 
AXL+B 

1050 PRINTTABC163 "C4CN]";Ni; ■= "l 
1060 INPUTG*:G=VFiL(G»3 

1070 IFGOLTHEN PR INTTfiBt 14 3"C LTREOJC 4CN 
1NEJC 3SPC] ' JN*i «"»tj rCNJ 
1080 RETURN 

I 1 00 PRINT T CLRJt 7CN3 i Tl =5*P3: GOSU01 900 
11 10 ft=Tl+5»P3: T1=5*P3: T2 = T t : GOSUB 1300 
1120 Tl=Tlt5*P3:T2=T3+5xP3:L=ft+Tl+T2 
1130 PRINTTABC 3 Jfif +" ; Tl ; j T2; " = i 
1148 INPUTGS:G=UhL[G1) 

1 1 50 IFGOLTHENPRI NTTtfBt I 1 J- 7 4CNK LTRED3 
NEJ DET BLIUER" )L 
1160 RETURN 

1200 PRINT 7 CLRJt 7CN3 : Tl =5xP3t GOSU01900 
1210 L=T1+5*P3: Tl =SxP3: T2=5*P3: GQSUB1 300 
1220 Tl=Tl+5xP3:T2=T3+5TP3:fl=L*TltT2 
1230 PRINTTPiBOM; -';T1; -"^21" = "J 
1240 INPUTG*:G=UALCGt) 

1250 IFGOLTHENPRI NTTF*BC 12 ) '[ 4CN3C LTRED3 
NEJ DET BLIUER" ; L 
1260 RETURN 

1300 PRINT 7 CLRU 7CNy*:U =6: T2 = 6:GOSU013 
00 

1310 A = n+P3 -2:B=T2+P3-2: Ti = 10*P3-25t T2 = 

1320 GOSUB1300: C=TItl0: IFC>rtxB-5THEN1300 

1330 IFT2 = lTHENNi= "-■•:L=fl*B-C 

1340 IFT2=2THENNt = " + ":L=flxBi-C 

1350 PRINTTftBC 1 0 Jfl : **:B;N*iC,' = "I 

1360 INPUTG*.:G-UALCGi 3 

1370 IPGOLTHENPRINTTRBC6 )"i 4CNH LTRED3N 
EJ DET BLIUER ;AxB;N*;C;-=":L 
1388 RETURN 

140B T1=20:T2=20:GDSUB1300 

1405 Nli=DiCTl 3:NZ*=P*(T23:fl = INTCP3/23 

1410 TI=5:T2=10:GOSUB1900 

1415 F=ri:0=T2: IFT1=4THEN141B 

1420 TlsZ+Fi: T2 = Tl: PRINT CCLR3C2CN3 I GOSU 

B1300 

1425 Nl tfTlW+t: N2=T2+f=l+i : N3 = T3+fHl 
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► 1425 Nl =TltAtl:N2=T2tA+l:N3=T3+A+l 

1430 PRINTTABC6 )N1 *; OG ":N2t; ' K0BER" 
1435 PRINTTflBterrCN] :FU1CF.U); HDS " ! 
FU4CF.0) 

1440 PRINTTAB<6J t2CN]' :Nli;" K0BER" JNl ; 
FUiCF.U) 

1445 PRlNTTAB<6r fCNJHAN BETALER I ALT" IN 
1*N2; KR. " 

1450 PRINTTAB(6V T2CN3 =N24; K0BER*";N3j 
FUiCF.U j" 

1455 PRINTTABC6 ) r2CN]HUflD SKAL HUN BETA 

LE ; 

2460 INPUTG4:G-UnUG4):L=N2*M3 

1465 IFGOLTHENPRINTTflBC6)"C 2CN K LTRED3N 

EJ HUN BETALER ' : N3: * ;N2; = iLl KR . " 

1470 RETURN 

1300 IFT2<2THENT2=2 

1310 Tl MNTCRNPC 1 DxTl M-l 

1920 T3 = INT(RhPU )xT2D+l 

1930 1FT3=T1THEN1910 

1940 T2-INTCRf<P( 1 3*TZ 1+1 '.RETURN 

1 960 N* = XYABK TP : T 1 =?: GOS U8 1 300 

19?0 N* =ni D* C N* , T l ,1 ) : RETURN 

2000 DATABAGEREN .RUNPSTYKKER .GIFLER ,NAPO 

LEONSKAGER .N0DDEKAGER .ROHKUGL ER ,"0AFLER 

2010 PfiTALAGKAGESNl rTER .KAGER .LlNSER .KOK 

OSriAKRONCR 

2020 DATAGRBNTHANDLEREN.APPELSJNER.CITRO 
NER .AGURKER .GULER8DDER .BANANER .PORRER 
2030 PATAMELONER .FERSKNER . WATER . SALATH 
OUEDER 

20-10 DATAKOBflANDEN .AUISER . UGE BLADE .K0KKE 
NRULLER . TANDB0RS TER .CILLER , UC-RULLER 
2050 DATAKARKLUDE .KAPlflE .PAP1 RBLOKKE , KUGL 
EPEMNE 

2060 DFlTflSLlKBUT IKKEN .FLBDEBOLLER .SALHI A 

KBAflSER .NOUGATBLOKKE .LAKRIOSRULLER 

2070 DATALAKRIDSKUGLER .LAKRIDSLARVER ,SL1 

KKEPINDE .SKILPAOUER .FR0ER . ISPINDE 

2080 DATASLAG TTREN ,FR 1KAOELLER .HAKKEB0FF 

ER .SUINEKOT TELE T TER .P9LSER .KBDBOLLER 

2090 DATAGR ILLP0LSER .LEUERP0LSER .GRJSEHA 

LER .KALUETUNGER , M0RBRAOB0FFER 

2200 DA TAPER .OLE .S0REN .KW .KRIST IAN .DAN , 

KNUD .PDUL .LARS .KLAUS .MICHAEL . BJARNE 

2210 DATA IB .JOHN .ALLAN .PETER . STEEN .BENNY 

.BENT. DENNIS 

2220 DATALONE .LIS ,B IRTHE .BIRGI T ,ULLA ,BEN 
TE . KAREN . HANNE . ANNETTE . LEHE . L I SE , TR I NE 
2230 DATANANCY. LENA .LISA, SANNI .LINDA .JAN 
E,JETTE,CONNI 

2240 DATAJENSEN , OLSEN .PETERSEN .SORE^SEN , 

CHRISTENSEN.LARSEN. NIELSEN. JESPERSEN 

2250 PATAHANSEN , FREPER IKSEN , JEPSEN .KNUPS 

EN , SUEMDSEN . S I HONSEN . RASflUSSEN 

2260 DAT AHORTENSEN . J AKOBSEN . THOHSEN ,P0UL 

SEN.BERTELSEN 

READY . 

' KDNTROLSUH FOR REGNETIF1E 



10 


41 


15 


67 


20 


221 


25 


103 


•30 


lie 


35 


67 


40 


41 


45 


143 


50 


143 


60 


53 


78 


145 


80 


60 


90 


72 


100 


61 


1 10 


197 


140 


208 


150 


180 


160 


60 


170 


186 


180 


41 


185 


220 


190 


201 


195 


58 


200 


161 


205 


19 


210 


122 


220 


41 


230 


71 


240 


72 


250 


113 


260 


80 


270 


78 


280 


77 


300 


241 


310 


223 


320 


23 


330 


B 


340 


194 


350 


143 


350 


139 


400 


222 


410 


153 


420 


166 


430 


112 


440 


39 


450 


220 


455 


204 


460 


50 



>t r- c 


£ 1 


H /B 


1 DO 


A7C 


£ £~J 


488 


54 


482 


1 27 




37 


*• JO 


J J J 


DUO 


*i£ 




I 08 




1 ylR 
1 **D 


cod 
JJH 


28 


540 


1 98 


J JO 


1 1 


SRCt 


c t 
J 1 t 


JOJ 


JO 


S7fl 


1 OP 


J/3 


1 44 


580 


246 


JO J 


£ -3 


CQQ 
JOS 


£ 0J 


590 


1 22 




\ AO 


596 


1 42 


600 


42 


e= i q 


O 1 rt 


620 


1 35 


630 


45 


Dtc 


1 o 1 

1 Jl 


650 


1 77 


655 


37 


DOW 


il't 


DOS 


59 


670 


236 


D/J 


1 1 0 
1 in 


ROq 
OCd 


i. -i 


690 


45 


cqi; 

U J J 


I d? 

1 1£ 


TO.©. 




785 


21 1 


•n i a 
'IB 


D J 


• I J 


224 


720 


207 


77S 


\ SP 
1 OD 




7nc 


XJ3 


9z 


s*t o 


1 


745 


47 


750 


243 




B * 

3 1 




244 


765 


1 53 


so/ 


O no 


770 


255 


775 


87 


S*j<Q 


ITT 

1 /2 


730 


1 39 


735 


142 


oUk) 


254 


805 


211 


810 


221 


pie; 
a 1 3 


Dt 


O£0 


Z07 


825 


50 


QQQ 
OJD 


3D 


835 


32 


840 


102 




4/ 


ocn 
ooB 


Z4 3 


055 


152 


HOo 


244 


865 


1 59 


867 


208 


ooo 


£4o 


o~ir> 
o/u 


1 24 


875 


141 


Q/ / 


i ID 






890 


89 


QQC 

OJJ 


1 fl7 




33 


31 0 


35 


jzo 


ice 


a Jo 


242 


940 


56 


J JO 


i PiLi 

1 


□ C|) 




370 


I 42 


: k (1 a 


Q O 

.3 J 


■ o > r» 
1 W I tJ 


64. 


S 020 


Z49 


L ' 1 


7 1 7 


1 Q4C4 


C -3 
jj 


i ncn 

i DJO 


3D 


i Pf.lt 


t fid 


1 a/a 


1 fl 


1 080 


142 


L 1 CO 


97 
rr 


■ tin 




1 1 7D 
1 1 £0 


1 CQ 

1 ba 


1 1 ICt 

1 1 JO 1 


701 


1 1 4R 


I C/l 

I Q1 


i 1 


OJ 


1 1 Dfl 


It/ 


1 £ViYS 


77 


J 21 B 


Z05 


1 77R 

i . - £ CI 


• CO 

1 UJ 


1 97B 
1 jC Jo 


737 


1 O.l o 

1 - ' i 


1 04 


1 7^0. 
1 ZDfcl 




i ; i i « 


142 


1300 


1 99 


1 Tip 

i Jim 


747 


1 T7P1 


✓ J 


J J Jo 


1 JJ 


t JHe 


1 -* 1 


1 TCfl 
1 


111 
111 


3 360 


1 64 




i 70 


i ion 




1 loo 


Z 34 




J 


i a i nt 
1 H i <Q 


Zoo 


idle 


226 


1 470 


i fin 


1 47^ 


7 Ifl 
Z JD 


J ■; TQ 

i t -.'O 


1 0 1 
101 


i *t jj 


i 

1 jj 


1 tf tl 


1 Oa 


J 44 j 


3D 


1450 


163 


1455 


1 67 

1 Ui 


1 4RR 


1 T7 




t i •% 

1 1 D 


1 *t/lfl 


142 


1 300 


7 


imp 

t -J 1 o 


1 14 




1 17 




1 n*i 

1«7 




a p 
OO 




1 3d 


1370 


1 35 


ZOOkJ 




in i f» 


57 


2020 


144 


3D in 

eld <. 




2040 


1 57 


2050 


23 1 




240 


2070 


138 


2080 


51 


2090 


66 


2200 


120 


2210 


62 


2220 


85 


2230 


107 


2240 


1 19 


2250 


234 


2260 


35 








I10RSEALFABET 

INDSENDT AF 
KASPER STEFF ENSEN 
KLBUERHARKSUFJ 9N 
8300 UIBDRG 



Til VIC-20 



0 PDKE775.0 

1 FDKE36B73. IB: PRINT r CLRKWHTJ«n«""*i«« 
BBBHBii<tBiiBBBtirCN3UELCDI1E TO PR SOFTUAREC 

CN)C5SPC}[REUJ(1DRSEALFABET 

2 PRINT r CNK 2SPCJC 0 P Y R I 6 H TC 3SPC 
M CN3KASPER UORK STEFFENSENt CIS J [ 3SPC ] 1 38 

5" 

3 PRINT rCNJoonnnwHuuitttiiaBntiiiBsoiiB 

5 GETX?<D*: IF?<?<D*~" THEN5 
IB PRINT [ CLR][ YELJ : P0KE36873 .8 



Commodore - MARKED 



COMPUTERBUTIKKEN har de seriose 
programmer til Commodore 64 

VIZASTAR 

BUDGET/DATABASBGRAFIK 
Programmet med LOTUS 1-2-3 facilitator 

VIZASTAR XL4, cartridge, 

diskette samt god manual 1.675,— 

VIZASTAR XL8, cartridge med ekstra 
8KRAM, diskette, brugermanual, med 
rmjllghed lor udskrift at Pie-charts. 

VIZASTAR XL4 2.225,- 

Rlng og bestil vor specialbrochure! 




'kken 



vl Akademisk Bogfcandel - Vestorgado 58A 
8000 Afhus C - Tlf. 06-13 20 55 



Fa mere ud af 
din Commodore 
hjemmecomputer 

Dansk Tidsskrift med tips 
og ideer. 

Provenummer tilsendes. 

Basic Programmering 

Norholmvej 8 
8740 Brasdstrup 

Tlf. 05-761518 



Commodore specialisten 
Byens billigste! 

Commodore 64 
SX-64 • C16 • Plus/4 
Diskettestation 1541 

Printer MPS-80 1 

Printer MPS-80 2 
Monitor 1701 

Erhvervsprogrammer, lege programmer, 
tilbeher, EDB-borde, 

Vihar det hele! 

Ringogfi 
et godt lilbud 

AflBOLk 

/VIIKRODATk 





WHEN YOU 
FINALLY GET 
SERIOUS... 



-20/o 



10 stk. double density 350r 

Inklusive ptestbox, moms og fbrsendelse! 

H"B Data 

PotfbokB 28 3980 KofckeOfii 
MT. 02-24 26 58 0*0 5 89 66 35 



TIPS-PROGRAM til Commodore 64 

Dette program holder styr pa aile lodboidholdene, op- 

summerer aulomatisk fcampe, vundrw, table, mil, 

points 0-s.v. tivoretter du Kan tippe ugens tipskupon 

med de sidste hett afctueile data. 

Programme! laver seiv kupowme og skrtvw de udreo- 

nede pfocentchanoar pa skagrmea 

r>u vailger mettem systemrieMter filler enkeltraetter. 

Du gemmer dine data og opsummerer dem den lolgen- 

de sandag, og du ec altid up to dale ved tipninoen 

Uwes oA dWaMM eller band. 



Prts: kr. 



295,00 



BestilHngsseddel □ diskette □ band 
sendss til: 

LD-Da«aservlce, Haslegardsvej 5, 8210 Arhus V. 

□ Check vediagi ) +15% 

□ Indbotalt pi giro 8274851 1 = 250,75 kr. 

□ Betales ved ntodtagelsen 



Poatnr. By: _ 



Printerborde 
RABAMI Serie 230 




Trinlas uafhaengig hajdereguleruig 
af save! skaarm- som tastaturplade. 
Ovexflade, brandfast raelamin i eg. 
teak eller modehvid. ^JQS- 
Leveres knock-down. i«i n*™ * 
Forsendes pr. efterkrav over hele 
Iandet. 

REKLAMEHUSETAIS 

Kongevejs Centre! 6 ■ 2970 Horsholm 
TH. 02-57 20 00 



Spar 231,- 
RABAMI 230 
COMPUTER- 
BORD 

Normalpris 729,- 
Hvid og Eg 



Spar 147,- 

RABAMI 

SKRIVE- 

MASKINE- 

BORD 

Hvid og Eg 



RING OG 
BESTIL 
IDAG!! 

Forsendes knock 
down over hele 
landet. 



498- 428- cc 

r a f T 1 ^ Konqeveis Centre! 6 



Incl. moms 



Incl. moms 



REKLAMEHUSETAIS 

Kongevejs Centre! 6 • 2970 Horsholm 
Tlf. 02-57 20 00 



20 PRINT rREU3IN0TFtST 
TA* 

25 PRINT T H0p1]t 7CN J//' 

30 H=LENCAt3 

48 F0RP=7726T07726*H 

50 IFPEEKCP 3 = 1 THENZ* = 

51 IFPEEK(P 3=ZTH£NZ*= 

52 JFPEEKf P 3=3THENZ»- 

53 IFPEEKCP 3=4THENZi= 

54 IFPEEKCP3=5THENZ*=' 

55 IFPEEKCP ) =6THENZ* ~* 
55 IFPEEKCP 3 =7THENZ»= 

57 IFPEEKCP )=8TMEN2$ = ' 

58 IFPEEKCP 3 -9THENZ*=' 

59 IFPEEKCP1=IBTHENZ»: 

60 IFPEEKCP 1 = 1 ITHENZi: 

61 IFPEEKCP3MZTHENZ* = 

62 IFPEEKCP3=13THENZ*= 

63 IFPEEKC P ) s 1 4THENZ1 - 

64 IFPEEKCP3=15THENZt^ 

65 IFPEEKtP3 = 16THENZV 

66 IFPEEKCP 3 M7THENZ* i 

67 IFPEEK(PJ=l8THFNZt: 

68 IFPEEKCP1=13THENZ«= 
63 IFPEEKCP)=20THENZt: 
70 IFPEEKCP 3 =21 THENZ1= 
?1 IFPEEKCP }=22THENZi = 

72 IFPEEKCP )-23THENZi = 

73 IFPEEKCP 3 -24THFNZ41 
7*1 IFPEEKCP ) =25THENZi = 

75 IFPEEKCP 3 ~26THENZt: 

76 IFPEEKCP )=32THENZ*- 

77 IFPEEKCP )=48THENZi: 

78 IFPEEKCP )=49THENZV 

79 IFPEEKCP 3 =50 THENZ* : 

80 IFPEEKCP 3=51THENZ*= 

81 IFPEEKCP 3 -5ZTHENZi- 

82 IFPEEKCP 3 =53THENZ4= 

83 IFPEEKCP 3-54 THEMZi- 



□ IN flEDDELSE": INPU 



x-s 

-xxx/ 

x-x-/~ 

-XX/ 

x/ 

xx-x/- 
~-x/ 

XXXX/' 
XX/' 
"X / 

-x-y 
%-%%/ 

" /? 

-1/ 
" /" 

» X/~ 

" X-/' 

~x-x/- 

"XXX/' 
"XX-/- 

*xx-/ 

"X / 

" -XX-/ ' 

"-x — /'• 

"—*%/" 

•'/" 

r 

■~x /" 

" — /" 

XXX—/ 
XXXX-/" 
'XXXXX/" 
-XXXX/' 



84 IFPEEK CP 3 "55THENZ* = " — xxx/" 

85 IFPEEKCP )~56THENZt = " xxs 

86 IFPEEKCP )=57THENZ*= x/ 

98 PRINTZS; 

100 NEXTP 

110 FOR Y = 768BT07726+LEN C A * 3: POKEY ,32i NEX 
T 

120 PRINT THOri]: 19CN3UIL DU FORTSAETTE J 

/N" 

122 PRINT U IL DU HflUE LYDt 4SPC1L" 

125 PRINT tHOfl] 

130 GETK*: IFKi=" J' THEN18 

140 IFK*=N* THEN200 

145 IFK*= L THEN300 

150 GOTO130 

200 PRINT f CLR3 " t POKE36879 .42: POKE36837 , 
160-.NFU 

300 F0RS=8164- C22*3 3TQ8185: POKES .32! NEXT 

301 FORG-7834T07831tC8x22 1 
303 POKE36873.25 

385 POKE36878.I5 

310 IFPEEKCG 1=47THENFORT = ITO500:NEXTiGOS 
UB50B 

320 IFPEEKCG 3 -42TIIENP0KE36876 .2581 FORT = 1 
TO50: NEXT : P0KE3B876 .0: GOSU8500 
330 IFPEEKCG ) -45THENPOKE36876 , 258 1 FORT =1 
TO300: NEXT : POKE36876 .0 : GOSUB580 

333 IFPEEKCG 3=32THENG = 0: GOT0345 

334 POKE7834+30720.6 

335 POKEG1- 30721 .6 
340 NEXTG 

345 PRINT C3SPC3PRESS ANY KEY" 
350 GETRt: IFRi= THEN358 
360 GO TO 10 

500 FORE=1TD1800:NEXT 
510 RETURN 

READY . 




QUICK SHOOTING 

1ND5ENDT AF 
KASPCR SIFFFENSEN 
KL0UFRrWRKSUr I 9N 
3B8B OIBORft 



Til VIC-20 



1 POKE36879,40:POKE775,0 

2 PRINT T CLR HYEUttBBnttnnBBBttBunHtfunflaB* 

3 PRIMT"t 4SPCH REU1QUICK SHOOTING" 

4 PRINT f CNl«t«HetinBnBBOttBfl«S«iB|rBB« 

5 PRINT T CN3BY: KASPER STEFFENSEN'' 

9 PRINT r 3CN3C4SPC3CREU32 COJNS^l GAME 

10 PRI HP [3CNK4SPC IMPRESS ANY KEY" 
12 GET**; IFA4= ' THEN 12 

14 PRINT fCLRHREU] QUICK SHOOTlNGCOm E 
R ETC 3SPC 3L ILLE SPrL.HUOR DETC 3SPC JGJLDF 
K OH R=T UflERET4SPCl"i 

15 PRINT HURTIGII" 

20 PRINTTCN3DU FAAR BONUS HUERt 5SPC3GAN 
G DU PASSERERC 6SPCJ480 . 

25 PRI NT NAAR DER KOflflER ENC5SPC3R0D FIR 
KANT ET STEDt3SPC]TlL H8JRE HAR DU CA." 
ED ^r NT 4 SEK * TIL flT SKYDE[ 4SPCJDEN N 
31 PRINT DU HAR EN KANON It 5SPC JUENSTRE 
^OE^AFC^SPCJSKftERriEN. ..SKYO flEDC 3SPC3C R 

35 PRI NT T 4SPC3C CN3PRE5S ANY KEY" 
40 GETAi: IFAt=" 'THEN40 

45 PRINT fCLRJGAA NED MED .[REUJ'CRSR QU 



5B PRINT TCN3 OG OP MEDC 2SPC1 : C REU3 ' CRSR 
R6' 

55 PRINT T2CN3GOD FORN0JELSE . C 2CN3HILSEN 

60 PRINT T 2CNH 5SPC 3KASPER STEFFENSEN" 

65 f RINT T 2CN3C 4SPC JPRESS ANY KEY 

70 GET(9t:lFA*= THEN78 

93 INPUT CCLR)NftA/N";m 

100 P0KE36873.8: POKE36B78.15 

105 0=30720 

110 PRINT TCLR3C YEL 3 " : REHP0KE775 ,0 

1 28 FORA=7680t21 T08 1 1 8f22STEP22: POKEfl , 1 6 

0:POKEfi+Q,l:NEXT 

130 FORA;7B80TO81 19STEP22: PDKEfl.97;p0KEA 
« 0.5: NEXT 

140 S=INTCRNDC I )x20)+l 

141 PRINT f HOmC 20CN3CREUJCRED3C 22SPCJC Y 

EL] " 

142 PRINT rHQPlIC 21CNJPOINT 'SC 
144 PRINT HISS. : fIS'CHOll) 

150 U=CC22xS*-7680 3- 1 ) 
168 POKEU.160:POKEU+Q.2 
165 TI*^ '000900 
178 GETDi 

175 IFDt= THEN260 

180 IFDi- fCNl THFNZ=Z+22:P0KE768B+Z-22. 

97: POKE7680^Z-22tQ,5:C=5 
185 IFZ>19X22THFNZ=0 

190 IFD»= TCH3 THENZ=Z-22;POKE7680*Z+22, 

97: POKE7690»Zf22+0 .5: C =5 

195 IFZ<BTHENZ=l9x22 

200 POKE7688*-Z.&4:POKE7680*Zi-Q.7 

205 I FT I * = > 080BB3 THEN880 

210 IFC--5THFN22B 

21 5 GOTO170 

220 C=0 %> 



60 




RUN bringer nyheder, tests af hardware og 
software, litteratur m.m., alt med relation til 
Commodore. RUN vil indeholde mange 
programmer. 

RUN udkommer januar, marts, april, juni, 
august, September, november og december 
i 1985. 

RUN fas i kioskerne samt hos Commodore 
forhandlere. t ._ _ _ 

KR. 24,50 

Abonnement 6 numre KR. 128,- incl. moms. 
Benyt bestillingskuponen pa bagsiden. 

§« 




PCS of Denmark 

The Personal Computer Society 




pi P\ 



BLIV MEDLEM NU 

Personal Computer Society 
Tetefon: 01-32 71 49 
Beverly Kteiman 

(Generalsekretser) 



Underiegnede onsker at bllve optaget som medlem: 



Navrv . 



Adresse . 



Postnummer: 
Teleton: 



.By: 



Jeg er sserlig i meres-sere! I: 



RI U N 



A / < 



TILBUD TILBUD 



DISKETTE 
KR. 118,- 

incl. moms 




Har du ikke tid eller lyst til selv at indtaste 
de mange programmer i RUN kan du kobe 
programmerne pa diskette eller 
kassettebind (kun ved forudbetaling). 

RUN PRIVATREGNSKAB 

kan nu ogs£ kobes pa diskette/kassetteband 
KR. 195,- incl. moms (kun ved forudbetaling). 
Betaling: 

Ved check eller pa postgirokonto 1 48 31 61. 



commodore microcomputer' system 
microcomputer-system * commotio; 
ocomputer-system - commodore mi 
putersystem • commodore mteroco 
system * commotio re ou^roootopote 



TAPE 
KR. 98,- 



incl. moms 




Tryksag 



ID 
C 



Computerworld Danmark A/S 
Torvegade 52 
1400 Kobenhavn K 



The PERSONAL COMPUTER SOCIETY 
Herluf Trollesgade 7, 3. sal 
DK-1052 Kobenhavn K. 



Tryksag 




Com puterworld Dan mark A/S 

Torvegade 52 
1400 Kobenhavn K 



► 239 GETF* 

248 IFF4= THEN260 

250 IFFIO THEN170 

260 FORG=7681+ZT0768H-Z+21STEP2 

270 POKES .64 : POKEG+0 . ! : P0KE368?? . 145 t NEX 

T:POKE36B?7,0 

280 FORG-768 1 +ZTO7681+Z+20: POKEG ,32: NEXT 
290 IF(PECKC768e+2+21 ) ) = f PEEKCU 3 JTHEN350 
300 POKE7680 tZ , 64: P0KE7688+ZtQ , 5 
310 POKE7680+Z1-21 , 160: P0KE768BtZ+2 1 tQ , 1 
320 GOTO800 

350 POKE768B +Z+ 2 1 . 160: POKE7680+Z+2 1+0,7= 
FORT = 1 38TO240: POKE36876 . T: NEXT: POKE7680+ 
2+21 tQ, I 

355 SC=SC+25 

357 IFSC/400 = INTCSC/400 )THEW1S = f1S- 1 : FORY 
= 1 TQ2: FORP = I 30T 0200 : P0KE36875 ,P : NEXT : MEX 
T 

358 POKE36875.0 
360 POKE36876.0 
370 GOTO140 

800 FORG=7680+Z+2 1 TO7680+ZSTEP- 1 : PDKEG ,4 
6: P0KE36874 . 1 30 : NEXT : P0KE36B74 . 0: nS=HSt 1 
805 IFriS=3THEN1000 

81 B FORH=7680+Z+21 TO7680+ZSTEP- 1 : POKEH ,3 
2 i NEXT 

820 POKE7C80+Z+21 . 160: POKE7680+Z+2 1 +Q , 1 
830 PDKE7680tZ,64 



840 POKCU.160:POKEU*Q,1 
850 6OTOI10 

10B0 PRINT rrLRjr6SPC]GAME[2SPC30UER M 

1010 FORTM30TO180 

1020 P0KE36877 , T : NEXT : P0KE36877 ,0 

1 030 1 FSC >H I THENH I -SC 

1040 1FSC<H1THEN1100 

1043 Li=(1»: FORO = 1TO2000: NEXT 

1045 PRINT rCLR] CONGRATULATION ''-PRINTm " 

1050 PRJNT r 3CN J 
1055 PRINT YOU GOT THE RECORD ' 
1060 PRINT HIGH SCORE "HI 
1070 G0T01158 

1100 FOROMTO2000:NEXr;PRINT CCLRJSORRY 

NO RECORD' 

1 105 PRINTP1* II" 

1 L 10 PRINT r3CNJ'L$ 

1115 PRINT GOT THE RECORD 

1120 PRINT HIGH SCORE HI 

1150 PRINT T HOriH 20CNJPRESS »*« TO CON 

T_" 

1155 GETPi: IFP*= *' THFNCLR: G0T098 
1160 Tit- 000000 

1165 IFTIt-O'000100 THENK=5:GOroi0 
1170 nS=0:SC=0=Z-0:nir- :G0T01155 

READY . 



Glem maskinkode 

600 x raskere med Basic -Aid 



FUTURE line 




PRESENTER ER! 



Thebes tekst til cbm64 

100*5& dansk tekstbehandlingsprogram i ren M/C 
med felgende funktioner: 

- Dansk KaraktersaH (JE 0Aa5aa) pa printer og skeerm 

- Fuldautomatisk scroll i all e retninger op til 
80 tegn pr. linie. 

- Blok opdelt, (flyt, fjerri & slet blok), 

- Kan broges med CBM printere og tekstbehandlings- 
printere, som JUKI 6100 & Brother HR15. 

- Centrering. Hajre justificering & Definerbar TAB 
(optil 14 stk.). 

- Formaterer mens man skriver. 

- Funktionsforklaring afallc kornmandoer, i 
vinduer pfi.skarmen. 

- 20K tekst 

■ Directory af diskindhold. 

- Udferlig brugermanual. 

DISK KR. 498,- Vejl. 

TAPE KR. 448,-. udsalgspriser! 
NU med TURBO LOADER pA bade disk & tape. 

FUTUREline, Tjwrebyvej 9, 3400 Hillered 
Tlf. 02-1104 28 

DANMARKS SOFTWAREHOUSE 

HENVISNING TIL NvERMESTE FORHANDLER 



Supernyhet til Commodore 64: Den nyutviklede Basic-Aid* kompiratoren 
gjur at Basic-programmefie dine gar like raskt som on de nr skrevel i 
naskinkofe. Hetl nye teknikker gjor det mulig at Basic -programmene 
gar opptil hele 600 ganger raskere. 

Dette or svcrl nye raskere enn lilsvarende oversatl program Ira alfe 
andre Basic-kompiiatorer til Commodore 64 pa markedet, som f.eks 
Prtspeed -Auslrocomp- 04 -Jetpack- Basic-Aid" koster samtidig 
under hali/parten av hva de nevnte kompilatorene kosler. 

Basic -Aid ' over setter et 1 0 K bytes Basic-program i Ispelav bare 5 sekun- 
der. Maskinkoden Basic-Aid" 1 lager av programmet drtt. vil i mange til- 
teller !a mindre plass enn ditt opprinnelige Basic-program. 

Basic-Aid" hjelper deg a na de programmerlngsmaiene du har satt 
deg, ulen lidkrevMdi miskinkodeprograrnmtnnfl fra din side. Det ferdig 
oversatte Basic -programmet kan selvfelgelig kjares uten Basic-Aid" 
lilstede 1 rnaskinen. Det betyr at du Ian sedge programmene. sende dem til 
liisskrifler. filler utveksle fern med vennw. Basic-Aid ' leveres komplett 
med norskbruksanvisning. 

Muttisystemer PosTBOKSio14.Ros5eBB.5501 hau&esuho 



C. GuibrancKen , tetcn. redaktor Mikrodata: 

Jpg er meoet impooert over Bosk-AkI's inuiiejhetf-r ' 



Ja, send meg snares t 
oppkravsgebyr 

Navn: 

Adresse: 

Sted: 



. . _ stk. Basic-Aid* 
□ KASSETT 



a to. 298.- 1 porto og 
□ DISKETT 
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Indtastningsvejledning 
for Commodore 64 & VIC-20 



De programmer, dor trykt or I RUN 
sor lidt anderledes ud end du er 
vant til at so pa din skaarm eller prin- 
ter. Del skyldes. at vl har an vend t et 
sseri igt printprogram, der»oversset- 
ter« do graflsko tegn til ot mere lea- 
sol Igt sprog. VI beder dig dertor I so- 
so indtastningsvejledningen onv 
hyggeligt igennem, lar du startor 
mod at indtaste dine programmer. 



Alle de grafiske tegn er I vort printpro- 
gram sat mellern to kantede parente- 
ser, og du skal sdledes IKKE indtaste 
disse parenteser eller det, der star 
imeilem. Du skal trykke pa den eller de 
taster, der svarer til det, der er skrevet 
mellern parenteserne rflg. skemaet 
her p£ siden. Star der et tal umiddei- 
bart etter den forste kantede parentes , 
skal de pagasldende taster trykkes det 
antal gange, der star skrevet. 
Star der SPC mellern de kantede pa- 
renteser, trykker du pa mellemrums- 
tast. Star der et lal foran SPC, trykker 
du tasten det antal gange. 

Du vil ogsa. komme ud for, at der 
imeilem parenteserne f.eks. star S/A- 
i sa tilfaalder trykker du pa SHIFT-ta- 
sten og A. Havde der t stedet staet C/A, 
skul le du have trykket pa Commodore- 
tasten og A. Ogsa i disse tilfaelde. kan 
der vaare et tal, der angiver antal gan- 
ge. 




Kontrolsum 

li prog ram me me til Commodore 64 er 
der knyttet et sakaldt kontrolsums- 
program, der kan lette fejlfinding ved 
indtastning. FrerngangsmSden ved 
brugen ai dette program er foigende: 

1. Du starter med at indtaste kon- 
trolsumsprogrammet og gemmer det 
til Iremtidig brug. 

2. For indtastningen af de evrige 
programmer starler du med at indlaase 
kont rolsu msprog rammet . 

3. Sa indtaster du dit program 

4. Tag altid en kopi af dit program, 
inden du tester det. 

5. Skriv GOTO 62000 og besvar de 
sporgsmal, som programmet stiller. 

6. Sammenlign de kontrolsummer 
med de, der er trykt i blade! og find de 
linler. hvordu evt. har tastet fejl. 

Almindelige rad. 

Vasr meget omhyggelig med ind- 
tastningen. og specielt nar det drejer 
sig om de sakaldto DATA-llnier. En fejl i 
disse tinier kan forarsage, at compute- 
ren wg ar i baglas« og du Oliver nodt ti I at 
slukke for den, 

Derfor endnu en gang: tag en kopi af 
dit program, inden du korer det. 

Hvis computeren giver en fejlmed- 
delelse i en linie, hvor der findes en 
READ-kommando, kan du vsere na> 
sten sikker pa, at fejlen IKKE skal Fin- 
des i den pagaaldende linie, men der- 
imod i en af DATAHinieme. 

Hvis du indtaster en programlinie, 
der fylder tolinierpaskaarmenfuldtud. 



(80 tegn) vil cursoren springe ned i den 
tredje linie. Et tryk pa RETURN-tasten 
her vil IKKE indlaase den pagaaldende 
linie. Du er i sa tilfalde nodt til at trykke 
cursoren en eller to linier op, tor du 
trykker pa return. 

Programmeme i RUN 

Programmerne. der er trykt i RUN, er 
testet og kan funktionere. Da program- 
meme mange gange er ret komplice- 
rede, kan vi ikke 100% udelukke, at et 
program i en special situation vil kunne 
opfare sig uventet. Dette er dog ikke 
normal!, ogisa tilfaalde vilredaktionen 
naturligvis vaare taknemmelig for en 
SKRIFTUGorientering. Derimodskul- 
le der ikke Isengere vaare nogen tek- 
nisk fejlmulighed i proceduren fra 
diskette/band til trykning i bladet 
Eventuelle rettelser og korraktioner til 
programmer eller artikler i RUN vil sa 
vidt muligt blive bragl i det efterfelgen- 
de nummer under rubrikken RUNA- 
MOK. Vi beder lasserne om IKKEat ret- 
te telefonisk henvendeilse om disse 
ting. 

RUNs redaction kan heller ikke pa- 
tage sig telefonisk at vaare laaserne be- 
hjaalpelige med fejlfinding ved indtast- 
ning eller tvivlsspergsmal om pro- 
grammeme i det hete taget. Hvis man 
har laast sin brugervejledning og telge r 
denne vejiedning, skulle indtastningen 
af programme™ ikke give de store 
problemer. 

God fornejelse. 
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52000 REfl KONTROLSUP1 PROGRAM 

67010 ISOSUB 67050 

62020 GOTO 62200 

62030 IF FL>=0 THEN 62020 

62040 END 

650S0 DEFFN OEEKCXJ = PEEKtX H256*PEEKCX 
-»1 J 

62050 DATA *" 

62070 DATA 165. 257. 166,253,133,020,131.0 
21.032.013. 

62000 DATA 166,216,160,001 ,17?, 035,133. 2 
54.240.013 

67090 DATA 700. 177,895. 133.252.200,177,0 
95 . 1 33 . 253 

62100 DATA 200,163.000.133.251,177.095.2 
40.006.024 

62118 DATA 101 .751. 700. 208. ?1<1. 096 
52120 DATA -1 
62130 AO = 52332 
62140 RESTORE 

52150 READ -Ttr IF Ttt>~ffX*" THEN 62150 
62160 READ T ! IF T > =0 THEN POKE AD.T : 
ftD = AD*M : GOTO 62160 

62170 PRJNT-CCLRJHUOR 0NSKES KONTROLSUH 
PRINTET : * 

67180 INPUT "TU/HONI TOR=0 PRINTER=4 PLOTT 

ER=6"; DEU 

62190 RETURN 

62200 REH DO I HI TALI SAT ION 

62710 ft = 0 : INPUT "F0RSTE LINE *J FL 

: IF FL<0 THEN RETURN 

62220 LL = 65536 : INPUT "S1DSTE LINE 

LL:PRINT"E CLRJ" 
62230 IF DEU>0 THEN OPEN 1 .DEU 



622*10 LN = FL : C = 0 : CI = 0 

62250 POKE 752,LN-INTCLN/256J*256 : POKE 

253.LN/256 
62260 SYS 52992: CS = PEEKC25n:LN=FNDEEKC2 
523*1 

62270 Ti = LEFTt-CSTRiCLN-1 i+"C6SPC3".6 Ji 

LEFTHSTR*CCS)rt?SPCr,7J 

622B0 IF DEU-0 THEN PRINT Ti? 

62230 IF DEU>0 THEN PR1NT»1 ,TV 

62300 IF DEU=0 THEN C ■ C*l ! IF C>=3 7H 

EN PRINT : C = 0 : CI c CI + 1 

62310 IF 0EU>8 THEN C = Ct 1 : IF C>=3 TH 

EN PRINT*! : C = 0 : CI * CI + 1 

67320 IF LN<=LL AND PEEK C 254 J THEN 62250 

62330 IF OEU>0 T HEN PR1NT*1 : CL0SE1 

62340 END 



KONTROLSUN 
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Tegn abonnement og 
vind en 128'er 



Hvorfor styrte rundl i kioskerne lor at 
se. om RUN er udkommet, nar du lige 
sa godt kan fa det ind ad brevsprask- 
ken pa udgivelsesdagen. 

Det er ikke engang dyrere - tvaBrt- 
imod sparer du over 3 kr. pr. nummer. 
Er der nogel at betsenke sig pa? 

Vind en 128'er 

Vil du vaere blandt de forste, der far 
den nye, spsendende 128'er, der kom- 
mer i handelen lige efter sommerferl- 
en? RUN traakker lod blandt ALLE 
abonnenter om denne flotte prsemie. 
Erndnu et argument for at tegne abon- 
nement! 



Er du abonnent 1 forvejen, sa er du 
automatisk med i lodtrsekningen, 

Forsinkelser og misforstaelser 

Pa grund af konflikten i aprtl, har nogle 
af abonnenterne modtaget RUN efter 
det har vsGre! til salg i kioskerne. VI be- 
klager dette, men fejlen har ligget hos 
postvsesenet , der ogsa har indrwn met 
og undskyldt (orsinkelsen. Vi haber 
ikke, det gentager sig, da vi Isegger 
stor veegt pa, at bladet er fremme hos 
abonnenterne til tiden. 

Enkelte har misforstaet abonne- 
mentsperioden. Vi tegner IKKE arsa- 
bonnementer, men derimod et abon- 



nement, der leber over 6 numre. For- 
Klaringen er naturligvis, at vi ikke pa 
forhand har kunnet sige, hvbr mange 
numre, der ville komme det terste ar. 
Heldigvis er der kommet flere end op- 
rindelig planlagt og abonnementspe- 
rioden bliver derfor forrykket. 

Er du ikke abonnent, sa send kupo- 
nen pa side 61 ind til Computerworld - 
og v£er med i lodtrsekningen! 

Send kuponen sahurtigt som muligt 
og senest 20. juli. Resultatet af lod- 
traakningen offentliggeres i nasste 
nummer af RUN. 



RUN Nr. 5 

udkommer den 8. august 1985 

Glaed dig til nsesle nurnmer, der bliver ei udvidet 

fodselsdagsnummer. 

PrEesentation af RUN'S redaktion 

Faste COMAL 80 sider og programmer. 

Tipsprogrammerne fortsseiter 

Stserkt udvidet rnaskinkodeafsnit. 

Masser af nyheder. 

Spcendende fodselsdagskonkurrence. 

Programmer af hoj kvalitet - ogs£ fra Iseserne. 



INDSENDELSE AF 
PROGRAMMER TIL RUN 



RUN AMOK 



I indtastningsprogrammet til Super- 
mon 64 {RUN 3/85) var der en enkett 
fejl. Nedenstaende linie skal rettes til: 




"1B |rF <50RF >F0P7 <SOR T >E T MEHPR IHI [ S/T13 1 
NOSI i9i rCUl. IKKE tiERE END' r E' GO F043B 



Fejlen har ikke bevirket, at program- 
met ikke kunne anvendes. 



En enkelt lllle fejl i Tipsprogrammet 
del 2 er rettet i listningen i del 3. 



GAMLE RUN'ER 

Der er mange laesere, der ©nsker en 
komplel sarnling af RUN. Vi har jsevn- 
ligt foresporgsler. og kan i den anled- 
ning oplyse.atman vedindsendelseaf 
kr. 25.- pa postgiro 1 48 31 61 kan fa 
sendt det nummer. man mangier. 



Har du skrevet et godt program, som 
du mener har interesse for andre, kan 
du sende en kassette eller diskette til 
RUNs redaktion. 0nsker du det ind- 
sendte materiale returneret, bedes du 
ventigst vedlaegge frankeret svarku- 
vert. 

Alle programmer, der trykkes i 
RUN, praamieres med 10disketter el- 
ler 24 band efter eget enske. 

Som privatperson kan du ligeledes 
annoncere gratis i RUN. Betingelsen 
er dog, at det ikke er piratkopier, du vil 
saalge. Hvis redaktionen sk0nner, at 
dette er tilfseSdet, vil annoncen ikke 
blive bragt. 

Vi glaader os til at here fra dig. 



PRIVATANNONCER 

Practicalc spreadsheet disk. kr. 400,-. 
Kartoteksprogram band kr. 75,-. Jupi- 
ter Lander spil Modul kr. 75,-. Alt origi- 
nal!. H Brand. Tlf. (06) 94 20 60. 



Tekstprogram tl! Commodore-64 med 
dansk karaktersaat og vejledning 
Scroll i alle retninger. SOtabuiatorposi 
tioner. Kopiering, ombytning og flyi 
ning at linier. Dlskverslon. Kr. 125,- 
Kassetteversion: kr. 75.-. Efter kl. 18 
B. Jensen. Tlf. (01) 97 08 77. 
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»qualimetric« 
g0r det lettere 

Vi gordet superlei torderes dataanlasg: BASF data-media med »qual imetric—symbolet er 
kendetegnet for perfekt og sikker kvalitet. Fra Flexyptek til plademodul er vi i den seer- 
lige situation, at vi kan omsaatte vore samlede erfaringer til topprodukter. VI optimerer 
kvafltet til BASFspecialitet. Denne ekstra sikkerhed lonnersig og gordet lettere for Dem. 



BASF 




"D A Q"C" Alle BASF data-media er specielt 

DjCxOx udviklede. specielt producerede og 

1 1 • i i gennemtestede. Det er BASFs 

]£ vCtllTQl Seerpositionen'garanti for. Over hele 

v-erden engageret i kemi pg fysik, 

seerdeleserfaren i samspilletmellem 

apparat og medie. Det er grundlaget 
for BASF topkvalitet. j 



A/S Badilln 

Ved Stadsgraven 15 

Postboks1734 ■ (01) 570011 
2300 Kobenhavn S 




HVEM HJ/ELPi 
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MATRIX PRINTER MPS 801 

MPS 801 er til dig. der vil have en virkelig professions 
prima 50 karaMerer pr sek. og 80 karakterer pr. linie. 
Ideel til udskrivning af fakturaer, checks, breve o. lign. 

Der er fuldt alfanumerisk tegnsajt samt 
CommodoregrafiK. Den Kan ogsa skrive meti negativ 
skritt og lave forstorrede karakterer. Desuden kan du 
designe tegn og bomarker med Commodore MPS 801. 




MATRIX PRINTER MPS 802 

Ideel til tekstbehandling. Fordi dens tegnoplosning er sa' 
hoj. velegnet til administrative systemer. Fordi den 
er beundringsvcErdtg hurtig med 80 karakterer pr. sek. 
Fordi den ubesvaret laver 20, 40 eller 80 tegn pr. linie. 
Bidirectional printning. Naturligvis med den linie- 
afstand du programmerer den til. Printer MPS802 arbej- 
der med papirtormaier op til A4. 



Commodore Computer er den storste 
leverandor at hiemmecomputere t 
Danmark-ogdettarpligter. 

Vore perifere enheder lever tuidt og 
hell op til vore computeres standard. 

Med vore printere. plottere, diskette- 
stationef og datasette udvider du dine ■ 
muligheder savel pa del administrative 
omrade som pa omradei for udvikling af 
egne programmer. 



Commodore 

Fordi fremtiden forleengst 



